From 7cfadc9826cc04a3c7fceb34fd589c3a9595ffe7 Mon Sep 17 00:00:00 2001 From: KarinSchork Date: Thu, 30 Oct 2025 09:55:20 +0100 Subject: [PATCH] output loadings from PCA --- DESCRIPTION | 2 +- R/PCA_Plot.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 65447b4..55d7524 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: ProtStatsWF Title: Statistics Workflows for Proteomics Data -Version: 0.1.0 +Version: 0.1.1 Authors@R: c( person("Karin", "Schork", , "karin.schork@rub.de", role = c("aut", "cre"), comment = c(ORCID = "0000-0003-3756-4347")), diff --git a/R/PCA_Plot.R b/R/PCA_Plot.R index 1777edc..6da35a5 100644 --- a/R/PCA_Plot.R +++ b/R/PCA_Plot.R @@ -143,6 +143,6 @@ PCA_Plot <- function(D, message(mess) return(list("plot" = pl, "D_PCA_plot" = cbind(D_PCA, "Sample" = colnames(D)), - "pca" = pca, "message" = mess, "filtered_D" = filtered_D)) + "pca" = pca, "message" = mess, "filtered_D" = filtered_D, "loadings" = pca$rotation)) }