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