# NOT RUN {
  iran.cat <- catalog(iran.quakes, time.begin="1973/01/01",
     study.start="1986/01/01", study.end="2016/01/01",
     lat.range=c(26, 40), long.range=c(44, 63), mag.threshold=5)
  print(iran.cat)
  
# }
# NOT RUN {
  plot(iran.cat)
# }
# NOT RUN {
  # setting initial parameter values
  param0 <- c(0.46, 0.23, 0.022, 2.8, 1.12, 0.012, 2.4, 0.35)
  # fitting the model
  
# }
# NOT RUN {
  iran.fit <- etas(iran.cat, param0=param0)
  # diagnostic plots
  resid.etas(iran.fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab