example(conreg, echo = FALSE)
class(rc) # "conreg"
rc # calls the print method
knots(rc)
plot(rc)
xx <- seq(-0.1, 1.1, length=201) # slightly extrapolate
yx <- predict(rc, xx)
plot(xx, yx, type = "l",
main="plot(xx, predict( conreg(.), xx))")
Run the code above in your browser using DataLab