# NOT RUN {
## load the breast cancer data set
data(cancer)
attach(cancer)
## launch SIMoNe on the full data set
res <- simone(expr)
## the default selected network (at most p edges)
plot(getNetwork(res))
## a sub network on some 10 randomly selected genes
plot(getNetwork(res,"BIC", nodes = sample(colnames(expr),10)))
## a network with a penalty corresponding to at most 40 edges
plot(getNetwork(res, 40))
detach(cancer)
# }
Run the code above in your browser using DataLab