data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet)
showBioNetNodesLayout()
labelBioNetNodeNames(nodeList=c(1, 4, 7), labelColor="black",
labelLocation="bottom")
Run the code above in your browser using DataLab