beta <- matrix(
data = c(
0.7, 0.5, -0.1,
0.0, 0.6, 0.4,
0.0, 0.0, 0.5
),
nrow = 3
)
psi <- 0.1 * diag(3)
lambda <- diag(3)
theta <- diag(3)
cov_eta <- SSMCovEta(
beta = beta,
psi = psi
)
SSMCovY(
lambda = lambda,
theta = theta,
cov_eta = cov_eta
)
Run the code above in your browser using DataLab