t_0 = 0
period = 1
t_points = seq(0.05,0.95,length.out = 19)
nb = numeric_basis(
basis_function = cbind(1/2,cos(2*pi*t_points),sin(2*pi*t_points)),
t_points = t_points,
t_0 = t_0,
period = period
)
ns = numericBasis_series(coef = c(0.8,1.2,1.6),numeric_basis = nb)
plot(ns)
Run the code above in your browser using DataLab