opar=par(mfrow=c(1,2),mai=rep(0.2,4))
A=matrix(0,nrow=6,ncol=6)
rownames(A)=colnames(A)=LETTERS[1:6]
A[1:2,3]=1
A[3,4]=1
A[4,5:6]=1
A[5,6]=1
plot.snha(A,layout="circle");
data=snha_graph2data(A)
round(cor(t(data)),2)
P=snha(t(data))
plot(P,layout="circle")
par(opar)
Run the code above in your browser using DataLab