if (FALSE) {
data(Nephrops)
Nephrops <- calc_ML(Nephrops, sample.size = FALSE)
res <- MLeffort(Nephrops, start = list(q = 0.1, M = 0.2),
n_age = 24, eff_init = Nephrops@Effort[1])
}
Run the code above in your browser using DataLab