data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet)
showBioNetNodesLayout()
linkBioNetSamples(nodeIndex=2, fromSample=10, toSample=20, outer=0.9,
plotColors="red")
Run the code above in your browser using DataLab