# NOT RUN {
# Example on the CLL data
filepath <- system.file("extdata", "CLL_model.hdf5", package = "MOFAdata")
MOFA_CLL <- loadModel(filepath)
plotWeights(MOFA_CLL, view="Mutations", factor=1)
# Highlight specific features
plotWeights(MOFA_CLL, view="Mutations", factor=1,
manual=list(c("IGHV"), c("TP53", "del17p13")),
color_manual=c("blue","red")
)
# Example on the scMT data
filepath <- system.file("extdata", "scMT_model.hdf5", package = "MOFAdata")
MOFA_scMT <- loadModel(filepath)
plotWeights(MOFA_scMT, view="RNA expression", factor=1, nfeatures=15)
# }
Run the code above in your browser using DataLab