# NOT RUN {
data("sailsim")
f.basis <- function(i) splines::bs(i, degree = 3)
fit <- sail(x = sailsim$x, y = sailsim$y, e = sailsim$e,
basis = f.basis, dfmax = 10, nlambda = 10, maxit = 100)
plot(fit)
# }
Run the code above in your browser using DataLab