# NOT RUN {
data(duncan)
prestige <- duncan$prestige
# specify knots
sm.incr.conc(prestige, knots=c(3,9,30,57,86,97))
# specify number of knots
prestige.smincrconc <- sm.incr.conc(prestige, numknots=7)
# check attributes
attributes(prestige.smincrconc)
# }
Run the code above in your browser using DataLab