data(swiss)
sw.s=snha(swiss,method='spearman')
sw.p=snha(swiss,method='pearson')
lay=snha_layout(sw.s,mode='sam')
plot(sw.s,layout=lay)
plot(sw.p,layout=lay)
plot(sw.s,layout='star',star.center='Education')
rn1=rnorm(nrow(swiss))
nswiss=cbind(swiss,Rn1=rn1)
plot(snha(nswiss,method='spearman'),layout='sam')
plot(snha(nswiss,method='spearman'),layout='samd',
vertex.size=2,vertex.color='beige')
Run the code above in your browser using DataLab