if (FALSE) {
data(SilkSnapper)
Silk.matrix <- bin_length(SilkSnapper, breaks = seq(80, 830, 10))
Silk.matrix <- bin_length(SilkSnapper)
new.dataset <- new("MLZ_data", Year = Silk.matrix$Year, Len_bins = Silk.matrix$Len_bins,
Len_matrix = Silk.matrix$Len_matrix)
}
Run the code above in your browser using DataLab