data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet)
positions <- getBioNetBasePositions()
bioGraph <- getBioNetGraph()
paddScale <- getBioNetNodePaddingScale()
nodeParams <- getBioNetNodeParameters()
plotBound <- getBioNetNodePlotAreaBoundary()
nodeRadius <- getBioNetNodeRadius()
areaWidth <- getBioNetPlotAreaWidth()
sampleWidth <- getBioNetPlotSampleWidth()
numOfSample <- getBioNetPlotTotalSample()
Run the code above in your browser using DataLab