FVDDP = initialize(3, function(x) rbinom(x, 10, .2),
function(x) dbinom(x, 10, .2), TRUE)
FVDDP.PAST = update(FVDDP, c(2,3))
FVDDP.FUTURE = update(FVDDP, c(4))
FVDDP.FUTURE = propagate(FVDDP.FUTURE, 0.5)
FVDDP.FUTURE = update(FVDDP.FUTURE, c(1))
approx.smooth(fvddp.past = FVDDP.PAST, fvddp.future = FVDDP.FUTURE,
t.past = 0.4, t.future = 0.3, y.new = c(1,3), N = 20000)
Run the code above in your browser using DataLab