Nothing
library(pomp)
pompExample(blowflies)
init.state(blowflies1)
x1 <- simulate(blowflies1)
f1 <- pfilter(blowflies1,Np=1000,seed=599688L)
logLik(f1)
init.state(blowflies2)
x2 <- simulate(blowflies2)
f2 <- pfilter(blowflies2,Np=1000,seed=599688L)
logLik(f2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.