n <- 3
Sigma <- sample_covariance_matrix(dim = n)
k <- 2
# build difference operator
delta(ref = k, dim = n)
# difference Sigma
(Sigma_diff <- diff_cov(Sigma, ref = k))
# un-difference Sigma
undiff_cov(Sigma_diff, ref = k)
Run the code above in your browser using DataLab