# NOT RUN {
data(exampleData)
vline <- list(ggplot2::geom_vline(xintercept=20, linetype="longdash", size=1),
ggplot2::scale_x_continuous(breaks=seq(12, 36, by=2)))
traits <- probeSmoothing(data = longi.dat, response = "Area",
df = c(4:7), x="xDays+24.16666667",
facet.x = ".", facet.y = ".",
which.plots = "none",
deviations.plots = "none",
propn.types = NULL)
med <- plotMedianDeviations(data = traits,
response = "Area", response.smoothed = "Area.smooth",
x="xDays+24.16666667", xname = "xDays",
df = c(4,7), x.title = "DAP",
facet.x = ".", facet.y = ".",
trait.types = "response", propn.types = 0.05,
ggplotFuncsMedDevn = vline)
# }
Run the code above in your browser using DataLab