data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet)
bioNetGraph <- getBioNetGraph()
outer <- 1.5
inner <- 1.0
nodeCenter <- as.numeric(bioNetGraph$layout[1,])
plotLocations <- getBioNetPlotLocations(nodeCenter, outer, inner)
Run the code above in your browser using DataLab