## Construct two resolutions of basis functions using local_basis()
Basis1 <- local_basis(manifold = real_line(),
loc = matrix(seq(0, 1, length.out = 3), ncol = 1),
scale = rep(0.4, 3))
Basis2 <- local_basis(manifold = real_line(),
loc = matrix(seq(0, 1, length.out = 6), ncol = 1),
scale = rep(0.2, 6))
## Combine basis-function resolutions into a single Basis object
combine_basis(list(Basis1, Basis2))
Run the code above in your browser using DataLab