Nothing
## mostly tested in various calls to iterated filter algorithms in bm.R
## here, we just test edge cases
library(spatPomp)
try(
spatPomp:::perturbn.kernel.sd(rw.sd=rw_sd(rho=0.02,X1_0=ivp(0.02)),1:2,
paramnames="testing_error")
)
spatPomp:::perturbn.kernel.sd(
rw.sd=matrix(c(0.01,0.02),nrow=2,ncol=2,
dimnames=list(c("rho","X1_0"),NULL)), 1:2, paramnames=c("rho","X1_0"))
# test fraction > 1
frac_test <- spatPomp:::mif2.cooling("hyperbolic",fraction=1.5,ntimes=5)
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.