phi <- matrix(
data = c(
-0.357, 0.771, -0.450,
0.0, -0.511, 0.729,
0.0, 0.0, -0.693
),
nrow = 3
)
iota <- rep(x = 1, times = 3)
lambda <- diag(3)
nu <- rep(x = 1, times = 3)
mean_eta <- LinSDEMeanEta(
phi = phi,
iota = iota
)
LinSDEMeanY(
nu = nu,
lambda = lambda,
mean_eta = mean_eta
)
Run the code above in your browser using DataLab