## Not run:
# data(bm, package="PANR")
# ##create an object of `PAN'
# pan<-new("PAN", bm1=bm1)
# ##infer a PAN
# pan<-infer(pan, para=list(type="SNR", log=TRUE, sign=TRUE, cutoff=log(5)),
# filter=FALSE, verbose=TRUE)
# ##build a PAN graph for RedeR, hide negative edges
# ##using colors scaled based on the clustering results from Bakal et al. 2007
# data(Bakal2007Cluster)
# pan<-buildPAN(pan, engine="RedeR", para=list(nodeColor=nodeColor, hideNeg=TRUE))
# ##view PAN in RedeR
# library(RedeR)
# viewPAN(pan, what="graph")
# ##print a summary of results
# summarize(pan, "ALL")
# ## End(Not run)
Run the code above in your browser using DataLab