
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
fit <- vgam(BMI ~ s(age, df = c(4, 2)), lms.bcn(zero=1), data = bmi.nz)
qtplot(fit)
qtplot(fit, perc = c(25, 50, 75, 95), lcol = "blue", tcol = "blue", llwd = 2)
# }
Run the code above in your browser using DataLab