Displaying 1 result from an estimated 1 matches for "namjid".
2007 Feb 12
0
Colouring the polygons, correlation matrix
...icks,1,2)),
pos=3)
text(rep(0,m), seq(-1/(2*m),-1+1/(2*m),-1/m), toupper(substr(ticks,1,2)),
pos=2)
#LEGEND
for (i in 1:N) {
polygon(c(1.1,1.1,1.2,1.2), -c((i-1)/N, i/N, i/N, (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)]<-runi...