## Not run:
# data(tissue_example)
#
# pcr = prcomp(t(tissue_example$exp))
# gs_pca = gosummaries(pcr, annotation = tissue_example$annot)
#
# plot(gs_pca, classes = "Tissue", components = 1:3, fontsize = 8)
# ## End(Not run)
# Read metabolomic data
data(metabolomic_example)
pca = prcomp(t(metabolomic_example$data))
# Turn off GO enricment, since it does not work on metabolites
gs = gosummaries(pca, annotation = metabolomic_example$annot,
show_gene = TRUE, gconvert_target = NULL)
plot(gs, class = "Tissue", components = 1:3, fontsize = 8)
Run the code above in your browser using DataLab