# 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