env <- opossom.new(list(dataset.name="Example",
dim.1stLvlSom="auto",
dim.2ndLvlSom=10,
training.extension=1,
rotate.SOM.portraits=0,
flip.SOM.portraits=FALSE,
database.dataset="auto",
geneset.analysis=TRUE,
geneset.analysis.exact=TRUE,
standard.spot.modules="dmap",
spot.coresize.modules=4,
spot.threshold.modules=0.9,
spot.coresize.groupmap=4,
spot.threshold.groupmap=0.7,
feature.centralization=TRUE,
sample.quantile.normalization=TRUE,
pairwise.comparison.list=list(
list("groupA"=c("sample1", "sample2"),
"groupB"=c("sample3", "sample4")))))
# definition of indata, group.labels and group.colors
env$indata = matrix( runif(1000), 100, 10 )
env$group.labels = c( rep("class 1", 5), rep("class 2", 4), "class 3" )
env$group.colors = c( rep("red", 5), rep("blue", 4), "green" )
# alternative definition of indata, group.labels and group.colors using Biobase::ExpressionSet
library(Biobase)
env$indata = ExpressionSet( assayData=matrix(runif(1000), 100, 10),
phenoData=AnnotatedDataFrame(data.frame(
group.labels = c( rep("class 1", 5), rep("class 2", 4), "class 3" ),
group.colors = c( rep("red", 5), rep("blue", 4), "green" ) ))
)
Run the code above in your browser using DataLab