## select visual meteor data for the elevation of Perseids radiant between 30 and 60 degrees,
## period between 1-20th August 2011
## rate data for the year 2011
require(astroFns)
data(rate11)
ratePer<-filter.date(rate11,year=2011,month=8,day.beg=1,day.end=20)
filter.h(ratePer,shw="PER", h.low=30,h.up=60)
## magnitude data for the year 2011
data(magn11)
magnPer<-filter.date(magn11,year=2011,month=8,day.beg=1,day.end=20)
filter.h(magnPer,shw="PER",h.low=30,h.up=60)Run the code above in your browser using DataLab