# NOT RUN {
if(requireNamespace("fda", quietly=TRUE)) {
curve_set <- create_curve_set(list(r=as.numeric(row.names(fda::growth$hgtf)),
obs=fda::growth$hgtf))
plot(curve_set, ylab="height")
bp <- fBoxplot(curve_set, coverage=0.50, type="area", factor=1)
plot(bp)
}
# }
Run the code above in your browser using DataLab