# NOT RUN {
# rectangular search
# }
# NOT RUN {
mydata <- search.isc(start.year=1980, start.month=1, start.day=01,
end.year=2017, end.month=11, end.day=11,
lat.bot=33, lat.top=37,
long.left=44, long.right=48,
mag.min=3.5, mag.type='MB')
mycatalog <- catalog(mydata, study.start = "1990-01-01")
plot(mycatalog)
# }
# NOT RUN {
# circular search
# }
# NOT RUN {
mydata2 <- search.isc(start.year=2017, start.month=11, start.day=12,
end.year=2018, end.month=3, end.day=01,
searchshape="CIRC",
lat.ctr=34.905, long.ctr=45.956,
radius=150, dist.units="km",
mag.min=3.5, mag.type='ML')
mycatalog2 <- catalog(mydata2)
plot(mycatalog2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab