# creat an earthquake catalog
italy.cat <- catalog(italy.quakes, dist.unit="km")
if (FALSE) {
plot(italy.cat)}
# set initial parameter values
mu <- 1
k0 <- 0.005
c <- 0.005
alpha <- 1.05
p <- 1.01
D <- 1.1
q <- 1.52
gamma <- 0.6
# reparametrization: transform k0 to A
A <- pi * k0 / ((p - 1) * c^(p - 1) * (q - 1) * D^(q - 1))
param0 <- c(mu, A, c, alpha, p, D, q, gamma)
if (FALSE) {
italy.fit <- etas(italy.cat, param0)}
Run the code above in your browser using DataLab