## 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 sizes 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.index2(magn,year=1997,month.beg=7,month.end=8,day.beg=27,day.end=16,shw="PER",
## k1=1,num=300)
## 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.91,max(pop.index+sigma.r)=3.07
## pop.index2(magn,year=1997,month.beg=7,month.end=8,day.beg=27,day.end=16,shw="PER",
## k1=1,num=300,add.plot=TRUE,xlim1=124,xlim2=145,xinc=1,ylim1=1.9,ylim2=3.1,yinc=0.1)
## calculate population index around maximum activity of 1997 Perseids, time period
## 10th August 19h to 14th August 7h, radiant elevation higher than 20 degrees,
## total correction factor smaller than 5
## pop.index2(magn,year=1997,month.beg=8,day.beg=10,day.end=14,time.beg=1900,
## time.end=700,shw="PER",num=300)
## make graphic of population index around max activity of 1997 Perseids
## x-axis limits: min(sollong)=138.272, max(sollong)=141.397
## 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=14,time.beg=1900,
## time.end=700,shw="PER",num=300,add.plot=TRUE,xlim1=138.2,xlim2=141.4,xinc=0.1,
## ylim1=1.5,ylim2=2.8,yinc=0.1)
Run the code above in your browser using DataLab