data(apEX)
data(apEXG)
PCMG2 <- findComplexes(apEX,sensitivity=.7,specificity=.75)
PCMG2sorted <- sortComplexes(PCMG2,apEX)
VBs <- rownames(apEX)
VPs <- setdiff(colnames(apEX),VBs)
plotComplex(PCMG2sorted$MBME[[1]],g=apEXG,VBs=VBs, VPs=VPs)
Run the code above in your browser using DataLab