data(dutchboys)
expreg <- expectile.laws(hgt ~ base(age,"pspline"),data=dutchboys,smooth="schall",expectiles=c(0.05,0.2,0.8,0.95))
plot(expreg)
print(expreg)
coef(expreg)
new.d = dutchboys[1:10,]
new.d[,2] = 1:10
predict(expreg,newdata=new.d)
Run the code above in your browser using DataLab