# NOT RUN {
testlen<-c(rnorm(10)*2+5)
# do the labels in clock24 units
testpos<-c(6.74,8.3,10.55,12.33,13.75,15.9,17.15,19.36,21.02,23.27)
oldpar<-clock24.plot(testlen,testpos,main="Test radial.plot.labels",
rp.type="s",point.symbols=3,point.col="green")
radial.plot.labels(testlen,testpos,units="clock24",labels=LETTERS[1:10],
pos=3,col="red")
testangle<-c(25,42,67,94,128,173,191,234,268,307)
# now a polar plot
polar.plot(testlen,testangle,main="Test radial.plot.labels",rp.type="p",
poly.col="green")
radial.plot.labels(testlen,testangle,units="polar",labels=LETTERS[1:10])
# reset par
par(oldpar)
# }
Run the code above in your browser using DataLab