data(gdental)
lev <- elev(gdental)
lev
summary(lev)
knots(lev) # the group boundaries
lev(knots(lev)) # empirical lev at boundaries
lev(c(80, 200, 2000)) # and at other limits
plot(lev, type = "o", pch = 16)
Run the code above in your browser using DataLab