入口參數spa
實際輸出rawyssr
預測輸出fitycode
1 #pls1是使用偏最小二乘法訓練好的模型，使用了17個主成分 2 fity<-pls1[["fitted.values"]][,1,17] 3 #預測值反標準化 4 fity<-(fity+3.239)/1.382 5 #求檢測輸出的平均值 6 mean(rawy)->meany 7 #求迴歸平方和，SSR-Sum of Squares for Regression 8 sum((fity-meany)^2)->y_ssr 9 #求迴歸殘差平方和，SSE-Sum of Squares for Error 10 sum((fity-rawy)^2)->y_sse 11 #求總離差平方和，SST-Sum of Squares for Total 12 y_ssr+y_sse->y_sst 13 #求R2 14 R2<-y_ssr/y_sst