if (FALSE) {
data(SilkSnapper)
new.dataset <- new("MLZ_data", Year = 1983:2013, Len_df = SilkSnapper, length.units = "mm",
vbLinf = 794, vbK = 0.1)
new.dataset@Lc <- 310
new.dataset <- calc_ML(new.dataset)
first.MLZmodel <- ML(new.dataset, 1)
Lc.vec <- seq(240, 340, 5)
sensitivity_Lc(new.dataset, first.MLZmodel, Lc.vec)
}
Run the code above in your browser using DataLab