遗传-偏最小二乘回归算法

GA-PLS，遗传-偏最小二乘回归算法，附方说明以及具体的运算程序。操作简单，易上手

% function backw performs backward selection
function [ncrispmaxcompmaxccmaxrisplibb]=backw（rcrcromrespnumvarccdatasetyautngmaxcompmaxrisplibbmxisximyisyiel）;
% verifying the list of the already “backwarded“ chromosomes
test1=1;
crb=0;ncp=[];rispmax=[];compmax=[];
if isempty（libb）==0
  while test1==1 & crb    crb=crb+1;
    j=0;
    test2=1;
    while test2==1 & j      j=j+1;
      if crom（crb:）==libb（j:）
        test2=0;
      end
    end
    if test2==1
      test1=0;	
    end
  end
else
  crb=1;
end

impr=1;
nc=crom（crb:）;
startresp=resp（crb:）;
while impr==1
  impr=0;
  libb=[libb;nc];
  start=find（nc）;
  startvar=size（start2）;
  if startvar>1
    for i=1:startvar
      varr=start;
      varr（i）=[];
      cc=cc+1;
      if el==3;
      	[facrisp]=plsgacv（dataset（:varr）yautngmaxcompmxi（:varr）sxi（:varr）myisyi）;
      else
      	[facrisp]=plsgacv（dataset（:varr）yautngmaxcompmxi（:varr）sxi（:varr））;
      end
      if risp>=startresp
        impr=1;
        ncp=nc;
        ncp（:start（i））=0;
        rispmax=risp;
        compmax=fac;
        startresp=risp;
        if risp>maxrisp
          disp（[‘ev. ‘ int2str（cc） ‘ - ‘ num2str（risp）]）
          maxrisp=risp;
        end
      end
    end
    nc=ncp;
  end
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1363  2013-04-01 18:52  GA\backw.m

     文件       1266  2013-04-01 18:52  GA\BETACDF.M

     文件       2764  2013-04-01 18:52  GA\BETAINV.M

     文件       1211  2013-04-01 18:52  GA\BETAPDF.M

     文件        208  2013-04-01 18:52  GA\CHECKTW.M

     文件        342  2013-04-01 18:52  GA\CHKSUBS.M

     文件       3531  2013-04-01 18:52  GA\DISTCHCK.M

     文件        824  2013-04-01 18:52  GA\Err_ga.m

     文件       1331  2013-04-01 18:52  GA\FINV.M

     文件       6969  2013-04-01 18:52  GA\gapls.m

     文件     619575  2013-04-01 18:52  GA\gapls.pdf

     文件       5976  2013-04-01 18:52  GA\gaplsopt.m

     文件       6754  2013-04-01 18:52  GA\gaplsout.M

     文件       7598  2013-04-01 22:46  GA\gaplssp.asv

     文件       7598  2013-04-01 22:48  GA\gaplssp.m

     文件      19255  2013-04-01 18:52  GA\mangapls.pdf

     文件        726  2013-04-01 18:52  GA\plotmore.M

     文件       3659  2013-04-01 18:52  GA\plotone.m

     文件       2348  2013-04-01 18:52  GA\plsgacv.m

     文件       3479  2013-04-01 18:52  GA\predpls.m

     文件        429  2013-04-01 18:52  GA\Pr_ga.m

     文件         48  2013-04-01 18:52  GA\Randomiz.m

     文件       1365  2013-04-01 18:52  GA\Reg_ga.m

     文件        371  2013-04-01 18:52  GA\Sc_ga.m

     文件       2646  2013-04-01 18:52  GA\TILEFIGS.M

     文件        962  2013-04-01 18:52  GA\Update.m

     文件       5012  2013-04-01 18:52  GA\ZOOMRB.M

     目录          0  2013-04-12 10:14  GA

----------- ---------  ---------- -----  ----

               707610                    28

............此处省略1个文件信息