data(gdental)
Fn <- ogive(gdental)
Fn
summary(Fn)
knots(Fn) # the group boundaries
Fn(knots(Fn)) # true values of the empirical cdf
Fn(c(80, 200, 2000)) # linear interpolations
plot(Fn)
Run the code above in your browser using DataLab