etasap(time, mag, threshold=0.0, reference=0.0, parami, zts=0.0, tstart, zte, approx=2, tmpfile=NULL, nlmax=1000, plot=TRUE)
$$n_i(t) = K exp[\alpha(M_i-M_z)]/(t-t_i+c)^p,$$
for $ t>t_i $ where $K$, $alpha$, $c$, and $p$ are constants, which are common to all aftershock sequences in the region. The rate of occurrence of the whole earthquake series at time $t$ becomes
$$\lambda(t) = \mu + \Sigma_i n_i(t).$$
The summation is done for all $i$ satisfying $t_i < t$. Five parameters $mu$, $K$, $c$, $alpha$ and $p$ represent characteristics of seismic activity of the region.
data(main2003JUL26) # The aftershock data of 26th July 2003 earthquake of M6.2
x <- main2003JUL26
etasap(x$time, x$magnitude, 2.5, 6.2,
c(0, 0.63348E+02, 0.38209E-01, 0.26423E+01, 0.10169E+01),, 0.01, 18.68)
Run the code above in your browser using DataLab