fix eigenvalue calculation

- now computed as sum of squared scores for each component
computational-metabolomics · Jul 20, 2023 · eff76e6 · eff76e6
1 parent 099d712
commit eff76e6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PCA_class.R b/R/PCA_class.R
@@ -84,7 +84,7 @@ setMethod(f="model_train",
         colnames(P)=varnames
         output_value(M,'loadings')=P
 
-        E=data.frame('Eigenvalues'=sqrt(model$d[1:A]))
+        E=data.frame('Eigenvalues'=colSums(scores^2))
         rownames(E)=varnames
         output_value(M,'eigenvalues')=E