# Example using simulated matrices
set.seed(123)
dataset1 <- matrix(rnorm(100, mean = 5, sd = 2), nrow = 10, ncol = 10)
dataset2 <- matrix(rnorm(100, mean = 10, sd = 3), nrow = 10, ncol = 10)
data_list <- list(dataset1, dataset2)
results <- compute_means_vars(data_list)
print(results)
if (FALSE) {
# Example using real experimental data (requires MOFAdata)
if (requireNamespace("MOFAdata", quietly = TRUE)) {
utils::data("CLL_data", package = "MOFAdata")
CLL_data2 <- CLL_data[c(2, 3)]
results <- compute_means_vars(CLL_data2)
print(results)
}
}
Run the code above in your browser using DataLab