pompExample(gompertz)
pf <- pfilter(gompertz,Np=1000) ## use 1000 particles
logLik(pf)
cond.logLik(pf) ## conditional log-likelihoods
eff.sample.size(pf)
logLik(pfilter(gompertz)) ## run it again with 1000 particles
logLik(pfilter(gompertz,Np=2000)) ## run it with 2000 particles and get the filtering means
## See the vignettes for more examples.
Run the code above in your browser using DataLab