# NOT RUN {
set.seed(123)
# SVC parameters
(df.pars <- data.frame(
nu = c(1.5, 1.5),
var = c(2, 1),
scale = c(3, 1),
mean = c(1, 2)))
# nugget standard deviation
tau <- 0.5
# sample locations
s <- sort(runif(500, min = 0, max = 10))
SVCdata <- fullSVC_line(
df.pars = df.pars,
nugget.sd = tau,
locs = s
)
# }
Run the code above in your browser using DataLab