Nothing
#' @importFrom splines splineDesign
# Construct sparse B-spline basis
b_spline_basis <- function(x, nseg = 10, deg = 3, range.variables){
x_min <- min(range.variables)
x_max <- max(range.variables)
interval <- (x_max - x_min) /nseg
knot_seq <- seq(x_min - deg * interval, x_max + deg * interval, by = interval)
sparseBasis <- splineDesign(knots = knot_seq, x = x, ord = deg + 1, outer.ok = T, sparse = T)
make_spam(sparseBasis)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.