datamat <- matrix(
rnorm(40),
nrow = 4,
ncol = 10,
dimnames = list(
paste0("feature", 1:4),
paste0("sample", 1:10)
)
)
dataset <- list(data = datamat)
pca.result <- pca_analysis_dataset(dataset)
pca_importance(
pca.result,
pcs = 1:3,
sd = TRUE,
prop = TRUE,
cumul = TRUE
)
pca_importance(
pca.result,
min.cum = 0.90,
sd = FALSE,
prop = TRUE,
cumul = TRUE
)
Run the code above in your browser using DataLab