data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet, totalSamples=60)
showBioNetNodesLayout()
dataValues <- matrix(rep(c(1:3), each=20), nrow=1)
plotBioNetPolygons(dataValues, outer=3, inner=2)
Run the code above in your browser using DataLab