data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet, totalSamples=60)
showBioNetNodesLayout(bgColor=grey(0.75, alpha=0.5))
Run the code above in your browser using DataLab