s <- seq(from = 0, to = 20, length.out = 101)
t <- seq(from = 0, to = 20, length.out = 31)
op_cov <- spacetime.operators(space_loc = s, time_loc = t,
kappa = 5, sigma = 10, alpha = 1,
beta = 2, rho = 1, gamma = 0.05)
op_cov <- update(op_cov, kappa = 4,
sigma = 2, gamma = 0.1)
Run the code above in your browser using DataLab