Description Objects from the Class Author(s) See Also Examples
mgsa class here.
Objects can be created by calls of the form
new("mgsa", ...)
.
Chen Meng
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | showClass("mgsa")
# library(mogsa)
# loading gene expression data and supplementary data
data(NCI60_4array_supdata)
data(NCI60_4arrays)
# split gene set annotation into two sets.
sup1 <- lapply(NCI60_4array_supdata, function(x) x[, 1:10])
sup2 <- lapply(NCI60_4array_supdata, function(x) x[, -(1:10)])
# project two sets of annotation
mgsa1 <- mogsa(x = NCI60_4arrays, sup=sup1, nf=9,
proc.row = "center_ssq1", w.data = "inertia", statis = TRUE)
mgsa2 <- mogsa(x = NCI60_4arrays, sup=sup2, nf=9,
proc.row = "center_ssq1", w.data = "inertia", statis = TRUE)
# combine two indenpendent mgsa sets
mgsa_comb <- combine(mgsa1, mgsa2)
dim(getmgsa(mgsa1, "fac.scr"))
dim(getmgsa(mgsa2, "fac.scr"))
dim(getmgsa(mgsa_comb, "fac.scr"))
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.