powered by
dotcircle(z, alpha0 = pi/2, xlim = range(pretty(z)), labels = names(z), clabel = 1, cleg = 1)
par("cex")*clabel
par("cex")*cleg
circ.plot
w <- scores.neig(neig(n.cir = 24)) par(mfrow = c(4,4)) for (k in 1:16) dotcircle(w[,k],labels = 1:24) par(mfrow = c(1,1))
Run the code above in your browser using DataLab