setClass(Class = "moa",
slots = c("eig","tau", "partial.eig", "eig.vec",
"loading", "fac.scr", "partial.fs",
"ctr.obs", "ctr.var", "ctr.tab", "RV",
"data", "tab.dim", "call", "w.row", "w.data"),
prototype = prototype(eig="numeric",
tau = c("logical", "numeric"),
partial.eig = c("logical", "data.frame"),
eig.vec = "data.frame",
fac.scr = "data.frame",
loading = "data.frame",
partial.fs = c("logical", "data.frame"),
ctr.obs = c("logical", "data.frame"),
ctr.var = c("logical", "data.frame"),
ctr.tab = c("logical", "data.frame"),
RV = c("logical", "matrix"),
w.row = c(NULL, "list"),
w.data = c(NULL, "list", "vector"),
data = "list",
tab.dim = "data.frame",
call = "call"),
sealed = TRUE,
package = "mogsa")
setClass(Class="moa.sup",
slots = c("sup", "coord.sep", "coord.comb",
"score", "score.data", "score.pc", "score.sep", "p.val", "p.val.corrected"),
prototype = prototype(
sup = c("list", "data.frame", "matrix"),
coord.sep = "list",
coord.comb = "matrix",
score = "matrix",
score.data = "list",
score.pc = "list",
score.sep = "list",
p.val = "matrix",
p.val.corrected = "matrix"),
sealed=TRUE,
package = "mogsa")
setClass(Class="mgsa",
slots = c("call", "moa", "sup"),
prototype = prototype(
call = "character",
moa = "moa",
sup = "moa.sup"),
sealed=TRUE,
package = "mogsa")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.