data(brain)
brain<-as.matrix(brain)
# WARNING : To process only the first five regions
brain<-brain[,1:5]
n.levels<-4
wave.cor.list<-const.cor.list(brain,n.levels=n.levels)
adj.mat<-correlations.to.adjacencies(wave.cor.list,edge.func=(function(x){x*log(x)}))
Run the code above in your browser using DataLab