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",line.col="red",lwd=3)
if(dev.interactive()) 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",line.col="blue")
radial.plot(testlen,testpos,rp.type="s",main="Test Symbols",point.col="green")
par(ask=FALSE)
Run the code above in your browser using DataLab