data(dutchboys)
dutch = dutchboys[sample(6848,500),] # reduce computing time for this example
expreg <- expectile.boost(hgt ~ bbs(age,df=5,degree=2),dutch,mstop=rep(550,11),expectiles=c(0.05,0.2,0.5,0.8,0.95))
Run the code above in your browser using DataLab