datamat <- matrix(
rnorm(40),
nrow = 4,
ncol = 10,
dimnames = list(
paste0("feature", 1:4),
paste0("sample", 1:10)
)
)
dataset <- list(
data = datamat,
metadata = data.frame(
class = factor(rep(c("A", "B"), each = 5))
)
)
pca.result <- pca_analysis_dataset(dataset)
pca_scoresplot2D(
dataset,
pca.result,
column.class = "class",
pcas = c(1, 2),
labels = TRUE
)
Run the code above in your browser using DataLab