tests/resample.R

library(pomp2)
set.seed(807969746L)

w <- runif(100)
k <- systematic_resample(w)
try(k <-systematic_resample(-w))
kidusasfaw/pomp documentation built on May 20, 2019, 2:59 p.m.