#Generate some test data
g<-rgraph(5)
g.pobs<-g*0.9+(1-g)*0.5
g.obs<-rgraph(5,5,tprob=g.pobs)
#Find some consensus structures
consensus(g.obs) #Central graph
consensus(g.obs,method="single.reweight") #Single reweighting
consensus(g.obs,method="PCA.reweight") #1st component in network PCA
Run the code above in your browser using DataLab