data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet, totalSamples=60)
showBioNetNodesLayout()
binaryData <- bionetPlotDemoData$binaryData[[1]]
sampleColors <- c(rep("blue", ncol(binaryData)))
plotType <- "points"
inner <- 2
outer <- 3
bioNetCircosPlot(binaryData, plotType, outer, inner, sampleColors)
Run the code above in your browser using DataLab