if (FALSE) {
data(Nephrops)
modal_length(Nephrops)
data(SilkSnapper)
new.dataset <- new("MLZ_data", Year = 1983:2013, Len_df = SilkSnapper)
modal_length(new.dataset)
modal_length(new.dataset, breaks = seq(80, 830, 10))
}
Run the code above in your browser using DataLab