growth_curves <- getGrowthCurves(NS_params, species = c("Cod", "Haddock"))
str(growth_curves)
library(ggplot2)
ggplot(melt(growth_curves)) +
geom_line(aes(Age, value)) +
facet_wrap(~ Species, scales = "free") +
ylab("Size[g]") + xlab("Age[years]")
Run the code above in your browser using DataLab