# NOT RUN {
library(dplyr)
gompertz() -> po
po %>%
as.data.frame() %>%
mutate(
logY=log(Y)
) %>%
select(time,logY) %>%
pomp(times="time",t0=0) %>%
kalmanFilter(
X0=c(logX=0),
A=matrix(exp(-0.1),1,1),
Q=matrix(0.01,1,1),
C=matrix(1,1,1),
R=matrix(0.01,1,1)
) -> kf
po %>%
pfilter(Np=1000) -> pf
kf$logLik
logLik(pf) + sum(log(obs(pf)))
# }
Run the code above in your browser using DataLab