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