## Not run:
# hasCy <- (if (.Platform$OS.type %in% "windows") { (length(grep("Cytoscape", system("tasklist", intern=TRUE))) > 0)})
#
# if hasCy {
# data(ccData)
# ccResults$BP <- breakEdges(ccResults$BP, 0.8)
# cwObj <- ccOutCyt(ccResults$BP,ccOpts)
#
# minNodes(cwObj, 5)
#
# }## End(Not run)
Run the code above in your browser using DataLab