My R just crashes when I run the last step using run_mofa, I have tried reducing the number of features, and also reinstalled basilisk. Could you help me take a look of the issue please?
Align samples based on common IDs
common_samples <- Reduce(intersect, list(
colnames(lipidomics_matrix),
colnames(metabolomics_matrix),
colnames(proteomics_matrix)
))
Subset each matrix to keep only the common samples
lipidomics_matrix <- lipidomics_matrix[, common_samples]
metabolomics_matrix <- metabolomics_matrix[, common_samples]
proteomics_matrix <- proteomics_matrix[, common_samples]
Combine data into a list for MOFA
data_list <- list(
Lipidomics = lipidomics_matrix,
Metabolomics = metabolomics_matrix,
Proteomics = proteomics_matrix
)
Visualize dimensions of input data
lapply(data_list, dim)
Create MOFA object
MOFAobject <- create_mofa(data_list)
Optional: Group information if relevant
For example, grouping participants by a clinical phenotype or intervention
groups <- c(rep("Group1", 100), rep("Group2", 100))
MOFAobject <- create_mofa(data_list, groups = groups)
Visualize data overview
plot_data_overview(MOFAobject)
---- Set model options ------------------------------------------------------
Get and modify default model options
model_opts <- get_default_model_options(MOFAobject)
model_opts$num_factors <- 10 # Adjust based on expected latent factors
---- Set training options ---------------------------------------------------
train_opts <- get_default_training_options(MOFAobject)
train_opts$maxiter <- 1000 # Adjust training iterations if needed
---- Prepare and run MOFA ---------------------------------------------------
MOFAobject <- prepare_mofa(
object = MOFAobject,
model_options = model_opts,
training_options = train_opts
)
Define output file path for the trained model
outfile <- file.path(".", "MOFA_model.hdf5")
MOFAobject.trained <- run_mofa(MOFAobject, outfile, use_basilisk = TRUE)
My R just crashes when I run the last step using run_mofa, I have tried reducing the number of features, and also reinstalled basilisk. Could you help me take a look of the issue please?
Align samples based on common IDs
common_samples <- Reduce(intersect, list(
colnames(lipidomics_matrix),
colnames(metabolomics_matrix),
colnames(proteomics_matrix)
))
Subset each matrix to keep only the common samples
lipidomics_matrix <- lipidomics_matrix[, common_samples]
metabolomics_matrix <- metabolomics_matrix[, common_samples]
proteomics_matrix <- proteomics_matrix[, common_samples]
Combine data into a list for MOFA
data_list <- list(
Lipidomics = lipidomics_matrix,
Metabolomics = metabolomics_matrix,
Proteomics = proteomics_matrix
)
Visualize dimensions of input data
lapply(data_list, dim)
Create MOFA object
MOFAobject <- create_mofa(data_list)
Optional: Group information if relevant
For example, grouping participants by a clinical phenotype or intervention
groups <- c(rep("Group1", 100), rep("Group2", 100))
MOFAobject <- create_mofa(data_list, groups = groups)
Visualize data overview
plot_data_overview(MOFAobject)
---- Set model options ------------------------------------------------------
Get and modify default model options
model_opts <- get_default_model_options(MOFAobject)
model_opts$num_factors <- 10 # Adjust based on expected latent factors
---- Set training options ---------------------------------------------------
train_opts <- get_default_training_options(MOFAobject)
train_opts$maxiter <- 1000 # Adjust training iterations if needed
---- Prepare and run MOFA ---------------------------------------------------
MOFAobject <- prepare_mofa(
object = MOFAobject,
model_options = model_opts,
training_options = train_opts
)
Define output file path for the trained model
outfile <- file.path(".", "MOFA_model.hdf5")
MOFAobject.trained <- run_mofa(MOFAobject, outfile, use_basilisk = TRUE)