## Not run:
# library(ggplot2)
# data(prj)
# ggplot(subset(prj$trks, Percentile=="50%")) +
# geom_line(aes(year,stock,group=TAC,col=TAC)) +
# theme_ms()## End(Not run)
Run the code above in your browser using DataLab