# NOT RUN {
om = new(outermod)
setcovfs(om, c("mat25", "mat25", "mat25"))
setknot(om,
list(seq(0,1,by=0.025),seq(0,1,by=0.025),seq(0,1,by=0.025)))
x = matrix(runif(10*3),ncol=3)
ob = new(outerbase, om, x)
terms = om$selectterms(40)
basismat = ob$getmat(terms)
# }
Run the code above in your browser using DataLab