## calculate population index for observations of 1997 Perseids, time period
## 10th August 19h to 13th August 7h, radiant elevation higher than 20 degrees,
## total correction smaller than 5
## First select 1997 Perseids, 28th July to 16th August, radiant elevation
## higher than 20 degrees
## 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.index2(magn,year=1997,month.beg=8,day.beg=10,day.end=13,time.beg=1900,
## time.end=700,shw="PER",num=300)
## make graphic of population index
##x-axis limits: min(sollong)=138.27, max(sollong)=140.51
##y-axis limits: min(pop.index-sigma.r)=1.59,max(pop.index+sigma.r)=2.79
## pop.index2(magn,year=1997,month.beg=8,day.beg=10,day.end=13,time.beg=1900,
## time.end=700,shw="PER",num=300,
## add.plot=TRUE,xlim1=138.2,xlim2=140.6,xinc=0.1,ylim1=1.5,ylim2=2.8,yinc=0.1)Run the code above in your browser using DataLab