vcov_init <- matrix(0.1)
mean_init <- 0
a <- 1.5
b <- 0.3
c <- 1
sigma <- 0.02
n <- 10^4
h <- 0.001
trueparam <- list(a = a, b = b, c = c, sigma = sigma)
mod <- setModel(drift = c("-a*X", "c*X"),
diffusion = c("b", "sigma"),
solve.variable = c("X", "Y"), state.variable = c("X", "Y"),
observed.variable = "Y")
samp <- setSampling(delta = h, n = n)
yuima <- simulate(mod, sampling = samp, true.parameter = trueparam)
res <- kalmanBucyFilter(
yuima, trueparam, mean_init, vcov_init, 0.001,
are = FALSE, env = globalenv()
)
# vcov and mean slots are accesible by mean and vcov method
mean(res)
vcov(res)
Run the code above in your browser using DataLab