set.seed(123)
# SVC parameters
(df.pars <- data.frame(
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 <- sample_SVCdata(
df.pars = df.pars, nugget.sd = tau, locs = s, cov.name = "mat32"
)
Run the code above in your browser using DataLab