## create smooth.spline mean height curve
data(heights)
ss <- with(heights, makess(age, height))
## and plot it
plot(ss, type='l', xlab='age', ylab='height')
## age at peak velocity, and peak velocity
print(ss$apv)
Run the code above in your browser using DataLab