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)
Q <- op_cov$Q
v <- rep(0,dim(Q)[1])
v[1565] <- 1
Sigma <- solve(Q,v)
image(matrix(Sigma, nrow=length(s), ncol = length(t)))
Run the code above in your browser using DataLab