## calculate and plot population index for observations of 1997 Perseids, time period
## 28th July to 16th August, radiant elevation higher than 20 degrees,
## total correction smaller than 5, bin size 1 degree
## data(magn97)
## magn<-filter(magn97,year=1997,month.beg=7,month.end=8,day.beg=28,day.end=16,
## shw="PER",h.low=20)
## pop.index(magn,year=1997,month.beg=7,month.end=8,day.beg=28,day.end=16,shw="PER",k=1)
## make graphic of population index
##x-axis limits: min(sollong)=125.5, max(sollong)=143.5
##y-axis limits: min(pop.index-sigma.r)=1.99,max(pop.index+sigma.r)=2.8
## pop.index(magn,year=1997,month.beg=7,month.end=8,day.beg=28,day.end=16,shw="PER",
## k=1,add.plot=TRUE,xlim1=125,xlim2=144,xinc=1,ylim1=1.9,ylim2=2.9,yinc=0.1)Run the code above in your browser using DataLab