Lea Goldman

> base$p5 = predict(reg,newdata=df,n.trees=1700)

If we visualize the Lorenz curve, we get

> vv = Vectorize(function(u) L(u,"p5","Y"))(vu)

workout routines 15 minutes     workout routines 12 weeks