# Example with artificial data
env <- opossom.new(list(dataset.name="Example",
dim.1stLvlSom=20))
env$indata <- matrix(runif(10000), 1000, 10)
env$group.labels <- "auto"
opossom.run(env)
# Real Example - This will take several minutes
#env <- opossom.new(list(dataset.name="Tissues",
# dim.1stLvlSom=30,
# geneset.analysis=TRUE,
# pairwise.comparison.list=list(
# list("Homeostasis"=c(1, 2), "Imune System"=c(9, 10)),
# list("Homeostasis"=c(1, 2), "Muscle"=c(8))
# )))
#
#data(opossom.tissues)
#env$indata <- opossom.tissues
#
#env$group.labels <- c(rep("Homeostasis", 2),
# "Endocrine",
# "Digestion",
# "Exocrine",
# "Epithelium",
# "Reproduction",
# "Muscle",
# rep("Imune System", 2),
# rep("Nervous System", 2))
#
#opossom.run(env)
Run the code above in your browser using DataLab