## The Occurrence Times Data of 627 Blastings
data(Brastings)
# exponential polynomial trend fitting
eptren(Brastings, nparam = 10, nsub = 1000)
# exponential Fourier series fitting
eptren(Brastings, nparam = 10, nsub = 1000, cycle = 1)
## Poisson Process data
data(PoissonData)
# exponential polynomial trend fitting
eptren(PoissonData, nparam = 10, nsub = 1000)
# exponential Fourier series fitting
eptren(PoissonData, nparam = 10, nsub = 1000, cycle = 1)
## The aftershock data of 26th July 2003 earthquake of M6.2
data(main2003JUL26)
x <- main2003JUL26
# exponential polynomial trend fitting
eptren(x$time, mag = x$magnitude, nparam = 10, nsub = 1000)
# exponential Fourier series fitting
eptren(x$time, mag = x$magnitude, nparam = 10, nsub = 1000, cycle = 1)
Run the code above in your browser using DataLab