# NOT RUN {
if(requireNamespace("fda", quietly=TRUE)) {
years <- paste(1:18)
curves <- fda::growth[['hgtf']][years,]
# Heights
cset1 <- create_curve_set(list(r = as.numeric(years),
obs = curves))
plot(cset1, ylab="Height")
bp <- fBoxplot(cset1, coverage=0.50, type="area", factor=1)
plot(bp)
# Considering simultaneously heights and height differences
cset2 <- create_curve_set(list(r = as.numeric(years[-1]),
obs = curves[-1,] - curves[-nrow(curves),]))
csets <- list(Height = cset1, Change = cset2)
res <- fBoxplot(csets, type = 'area', factor = 1.5)
plot(res, xlab = "Age (years)", ylab = "")
}
# }
Run the code above in your browser using DataLab