## 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=1000, metric="cosine",
# hclustMethod="average", filter=TRUE, verbose=TRUE, r=c(5:12/7))
# inds<-sigModules(pan, pValCutoff=0.01, minSize=5, maxSize=100, sortby="size",
# decreasing=FALSE)
# pan@modules$clusters[inds]
# ## End(Not run)
Run the code above in your browser using DataLab