## 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)
# ##view inferred PAN
# viewPAN(pan, what='graph', layout="layout.fruchterman.reingold")
# ## End(Not run)
Run the code above in your browser using DataLab