Displaying 1 result from an estimated 1 matches for "njid".
Did you mean:
nid
2007 Feb 12
0
Colouring the polygons, correlation matrix
...i-1)/N),
col=col[N-i+1])
}
text(rep(1.2,N+1), -N:0/N, -(N/2):(N/2)/(N/2), pos=4)
}
options(digits=2)
#--NAMES
namjid<-c("mike", "tommy", "clara", "silvio", "jimmy", "jeffrey", "carl",
"randy", "tara")
njid<-length(namjid)
#--CORRELATION MATRIX
corrmat<-diag(rep(0.5,njid))
corrmat[lower.tri(corrmat,diag=0)]<-runif(choose(njid,2),-1,1)
corrmat<-corrmat1+t(corrmat)
#--CALL
cor.plot(mat=corrmat, dens=4, ticks=namjid, main="")
[[alternative HTML version deleted]]