demo/cancer_multitask.R

rm(list=ls())
library(simone)
data(cancer)
attach(cancer)

res.coop <- simone(expr, tasks=status)
plot(res.coop, ask=FALSE)

glist <- getNetwork(res.coop, "BIC")
plot(glist[[1]],glist[[2]])
glist <- getNetwork(res.coop, 65)
plot(glist[[1]],glist[[2]])

detach(cancer)

Try the simone package in your browser

Any scripts or data that you put into this service are public.

simone documentation built on May 29, 2017, 11:32 a.m.