# \donttest{
if (requireNamespace("plotly", quietly = TRUE)) {
datamat <- matrix(
rnorm(40),
nrow = 5,
ncol = 8
)
dataset <- list(
data = datamat,
metadata = data.frame(
class = factor(rep(c("A", "B"), length.out = 8))
)
)
result <- pca_analysis_dataset(dataset)
pca_scoresplot3D(
dataset,
result,
column.class = "class",
pcas = c(1, 2, 3)
)
}
# }
Run the code above in your browser using DataLab