n <- 9
deg <- 3
mu <- 0.35
x <- 0:1000 / 1000
knots <- make_knots(n, mu = mu, deg = deg)
B <- splines2_basis(x, knots, deg)
ts.plot(B, col = 1:dim(B)[2])
# Periodic Case
B <- splines2_basis(x, knots, deg, periodic = TRUE)
ts.plot(B, col = 1:dim(B)[2])
Run the code above in your browser using DataLab