# NOT RUN {
# number of SVC
p <- 3
# sqrt of total number of observations
m <- 20
# covariance parameters
(pars <- data.frame(
nu = rep(0.5, p),
var = c(0.1, 0.2, 0.3),
scale = c(0.3, 0.1, 0.2)
))
nugget.var <- 0.05
# function to sample SVCs
sp.SVC <- fullSVC_reggrid(m = m, p = p,
cov_pars = pars,
nugget = nugget.var)
head(sp.SVC)
# }
Run the code above in your browser using DataLab