# NOT RUN {
# Example on the CLL data
library(MultiAssayExperiment)
data("CLL_data", package = "MOFAdata")
data("CLL_covariates", package = "MOFAdata")
# Create MultiAssayExperiment object
mae_CLL <- MultiAssayExperiment(CLL_data, colData=CLL_covariates)
MOFAobject <- createMOFAobject(mae_CLL)
# Extract covariates from the colData of a MultiAssayExperiment
gender <- getCovariates(MOFAobject, "Gender")
diagnosis <- getCovariates(MOFAobject, "Diagnosis")
# Example on the scMT data
data("scMT_data", package = "MOFAdata")
MOFAobject <- createMOFAobject(scMT_data)
# Extract covariates from the colData of a MultiAssayExperiment
culture <- getCovariates(MOFAobject, "culture")
# Extract covariates from the phenoData of the RNA assay
cdr <- getCovariates(MOFAobject, "cellular_detection_rate")
# }
Run the code above in your browser using DataLab