# \donttest{
sim <- NS_sim
# Some example plots
plotFeedingLevel(sim)
# Plotting only a subset of species
plotFeedingLevel(sim, species = c("Cod", "Herring"))
# Specifying new colours and linetypes for some species
sim@params@linetype["Cod"] <- "dashed"
sim@params@linecolour["Cod"] <- "red"
plotFeedingLevel(sim, species = c("Cod", "Herring"))
# Manipulating the plot
library(ggplot2)
p <- plotFeedingLevel(sim)
p <- p + geom_hline(aes(yintercept = 0.7))
p <- p + theme_bw()
p
# }
Run the code above in your browser using DataLab