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)
prec_matrix <- precision(op_cov)
Run the code above in your browser using DataLab