# 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 = 5, nlambda = 10,
maxit = 20)
fit
# }
Run the code above in your browser using DataLab