powered by
rotplot(x, y, number=9, theta=seq(0, pi/2, length = 9), ...)
data(ais) attach(ais) m1 <- dr(LBM ~ Ht + Wt + WCC) rotplot(dr.direction(m1,which=1:2),dr.y(m1),col=markby(Sex))
Run the code above in your browser using DataLab