## select data for observations of Orionids, period 16-30th October 2006,
## 12hrs time intervals, and make a graphic of ZHR
data(rate06)
require(plotrix)
rateOri<-filter(rate06,shw="ORI",year=2006, month=10, day.beg=16, day.end=30)
zhr.graph(rateOri,year=2006,month=10,day.beg=16,day.end=30,shw="ORI",r=2.5,k=12,type="UTC")Run the code above in your browser using DataLab