## Not run:
# data(bm, package="PANR")
# pan<-new("PAN", bm1=bm1)
# pan<-infer(pan, para=list(type="SNR", log=TRUE, sign=TRUE, cutoff=log(5)),
# filter=FALSE, verbose=TRUE)
# data(Bakal2007Cluster, package="PANR")
# pan<-buildPAN(pan, engine="igraph", para=list(nodeColor=nodeColor,
# hideNeg=TRUE), verbose=TRUE)
# ##need pvclust to search modules
# library(pvclust)
# pan<-pvclustModule(pan, nboot=10000, metric="cosine2",
# hclustMethod="average", filter=TRUE, verbose=TRUE, r=c(5:12/7))
# viewNestedModules(pan, pValCutoff=0.05, minSize=5, maxSize=100)
# ## End(Not run)
Run the code above in your browser using DataLab