Nothing
options(digits=3)
library(spatPomp)
try(spatPomp:::conc())
try(spatPomp:::conc("a","b"))
sp1 <- bm2(U = 2, N = 20, shared_names = "rho")
sp2 <- bm2(U = 2, N = 20, shared_names = "rho")
sp3 <- bm2(U = 3, N = 10, shared_names = "rho")
(t_spatPompList <- is(c(sp1, sp2), "spatPompList"))
(t_bpfilterList <- is(
c(
bpfilter(sp1, Np = 10, block_size = 1),
bpfilter(sp2, Np = 10, block_size = 1)
),
"bpfilterList"
))
## ibpfilterList is tested in He10
stopifnot(all(t_spatPompList, t_bpfilterList))
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.