# NOT RUN {
om = new(outermod)
setcovfs(om, c("mat25", "mat25", "mat25"))
setknot(om,
list(seq(0,1,by=0.01),seq(0,1,by=0.01),seq(0,1,by=0.01)))
terms = om$selectterms(40)
coeffvar =om$getvar(terms)
hyp = gethyp(om)
hyp[1:2] = 0.5
om$updatehyp(hyp)
coeffvar = om$getvar(terms)
# }
Run the code above in your browser using DataLab