library(pompExamples)
pompExample("lavine2013")
plot(freeze(simulate(lavine2013),seed=1891542367L))
pf <- freeze(pfilter(lavine2013,Np=1000),seed=1863695913L)
print(logLik(pf))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.