if (FALSE) {
# create Kalman-Bucy filter object
drift <- c('a*X', 'c*X')
diffusion <- matrix(
c('b', '0', '0', 'sigma'),
2, 2
)
vars <- c('X', 'Y')
mod <- setModel(
drift = drift, diffusion = diffusion, solve.variable = vars,
state.variable = vars, observed.variable = 'Y', xinit = c(0, 0)
)
samp <- setSampling(delta = 0.01, n = 10^3)
trueparam <- list(a = -1.5, b = 0.3, c = 1, sigma = 0.02)
### simulate
yuima <- simulate(mod, sampling = samp, true.parameter = trueparam)
res <- kalmanBucyFilter(
yuima,
params = trueparam, mean_init = 0, vcov_init = 0.1,
delta.vcov.solve = 0.001, are = FALSE
)
### visualize
plot(res, plot_truth = TRUE, level = 0.95)
}
Run the code above in your browser using DataLab