| 2 | 1/1 | 返回列表 |
| 查看: 844 | 回復(fù): 1 | ||
刀光木蟲(chóng) (著名寫(xiě)手)
鐵蟲(chóng)
|
[求助]
SIMPLS算法
|
|
clear all clc load('data.mat'); %預(yù)先編寫(xiě)數(shù)據(jù)文件data.mat,并保存到當(dāng)前工作路徑下 X=data(:,1:5); y=data(:,6:8); % 1. 以SIMPLS算法進(jìn)行 N=5; [XL,yl,XS,YS,beta,PCTVAR,MSE,stats] = plsregress(X,y,N); % 按照重組之后的成分對(duì)原始方差的解釋力度 figure(1) plot(1:N,cumsum(100*PCTVAR(2, ),'-bo');xlabel('Number of PLS components'); ylabel('Percent Variance Explained in y'); % 殘差圖 figure(2) yfit = [ones(size(X,1),1) X]*beta; residuals = y-yfit; corrcoef(y,yfit); stem(residuals) xlabel('Observation'); ylabel('Residual'); % 擬合圖(y yfit) figure(3) plot(y,yfit,'o') % 計(jì)算擬合優(yōu)度,以R^2表示 y1=y(:,1); y2=y(:,2); y3=y(:,3); yfit1=yfit(:,1); yfit2=yfit(:,2); yfit3=yfit(:,3); TSS1 = sum((y1-mean(y1)).^2); RSS1 = sum((y1-yfit1).^2); Rsquared1 = 1-RSS1/TSS1 TSS2 = sum((y2-mean(y2)).^2); RSS2 = sum((y2-yfit2).^2); Rsquared2 = 1-RSS2/TSS2 TSS3 = sum((y3-mean(y3)).^2); RSS3 = sum((y3-yfit3).^2); Rsquared3 = 1-RSS3/TSS3 myRSS=[Rsquared1,Rsquared2,Rsquared3] % 權(quán)重分布圖 figure(4) plot(1:N,stats.W,'o-'); legend({'c1','c2','c3','c4','c5','c6','c7'},'Location','NW') xlabel('Predictor'); ylabel('Weight'); 有哪個(gè)大神研究過(guò)這個(gè)程序,請(qǐng)問(wèn)plsregress函數(shù)里面的各參數(shù)是指什么?% 權(quán)重分布圖里面的c1-c7是指什么,% 權(quán)重分布圖里面是指什么權(quán)重?感激不盡。。 |

木蟲(chóng) (正式寫(xiě)手)
小蜜蜂

| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|