# NOT RUN {
## select data for observations of Perseids, period 12-14th August 2007
## and make graphics of magnitude distribution
data(magn07)
magnPer<-filter(magn07,shw="PER", year=2007, month.beg=8, day.beg=12, day.end=14)
mag.distr(magnPer,year=2007, month.beg=8, day.beg=12, day.end=14, shw="PER")
# }
Run the code above in your browser using DataLab