data(bionetPlotDemoData)
expr <- bionetPlotDemoData$heatmapData[[1]]
bioNet <- bc3net(expr)
initializeBioNetCircos(bioNet, totalSamples=100, sampleWidth=100,
nodeRadius=1, nodePadding=1, plotAreaWidth=1,
layout=layout.fruchterman.reingold(bioNet))
Run the code above in your browser using DataLab