## by Gutenberg-Richter's Law
etasim1(bvalue = 1.0, nd = 999, threshold = 3.5, reference = 3.5,
param = c(0.2e-02, 0.4e-02, 0.3e-02, 0.24e+01, 0.13e+01))
## from a etas-format dataset
data(main2003JUL26) # The aftershock data of 26th July 2003 earthquake of M6.2
etasim2(main2003JUL26, tstart = 0.01, threshold = 2.5, reference = 6.2,
param = c(0, 0.63348e+02, 0.38209e-01, 0.26423e+01, 0.10169e+01))
Run the code above in your browser using DataLab