GA-PLS 遗传算法部分最小二乘

遗传算法和偏最小二乘结合 的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  2001-08-31 16:06  backw.m
     文件        1266  1993-10-11 09:13  BETACDF.M
     文件        2764  1993-10-11 09:13  BETAINV.M
     文件        1211  1993-10-11 09:13  BETAPDF.M
     文件         208  1998-07-31 12:10  CHECKTW.M
     文件         342  1998-07-31 12:01  CHKSUBS.M
     文件        3531  1993-10-11 09:13  DISTCHCK.M
     文件         824  1998-03-30 12:02  Err_ga.m
     文件        1331  1993-10-11 09:13  FINV.M
     文件        6969  2002-09-05 09:42  gapls.m
     文件        5976  2002-08-07 13:25  gaplsopt.m
     文件        6754  2001-09-14 13:07  gaplsout.M
     文件        7429  2002-09-05 09:38  gaplssp.m
     文件       19255  2004-09-17 09:44  mangapls.pdf
     文件         726  2003-10-10 09:31  plotmore.M
     文件        3645  2001-11-05 13:59  plotone.m
     文件        1784  2001-08-31 15:13  plsgacv.m
     文件        3479  2001-09-12 16:37  predpls.m
     文件         429  1998-03-30 11:53  Pr_ga.m
     文件          48  1997-07-28 08:26  Randomiz.m
     文件        1365  1997-07-11 10:48  Reg_ga.m
     文件         371  1998-03-30 11:37  Sc_ga.m
     文件        2646  2001-01-21 20:09  TILEFIGS.M
     文件         962  1997-08-26 09:03  Update.m
     文件        5012  1994-08-26 08:49  ZOOMRB.M