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