testlen<-rnorm(24)*2+5
testpos<-0:23+rnorm(24)/4
clock24.plot(testlen,testpos,main="Test Clock24",show.grid=FALSE,
line.col="green",lwd=3)
par(ask=TRUE)
# now do a 'daylight' plot
clock24.plot(testlen[5:19],testpos[5:19],main="Test Clock24 daytime",
line.col="blue",lwd=3)
par(ask=FALSE)
Run the code above in your browser using DataLab