testlen<-rnorm(10)*2+5
testpos<-seq(0,18*pi/10,length=10)
testlab<-letters[1:10]
radial.plot(testlen,testpos,main="Test Radial Lines")
par(ask=TRUE)
testlen<-c(sin(seq(0,1.98*pi,length=100))+2+rnorm(100)/10)
testpos<-seq(0,1.98*pi,length=100)
radial.plot(testlen,testpos,rp.type="p",main="Test Polygon",col="blue")
par(ask=FALSE)
Run the code above in your browser using DataLab