tests/resample.R

library(pomp)
set.seed(807969746L)

w <- runif(100)
k <- systematic_resample(w,100)
try(k <-systematic_resample(-w))
k <- systematic_resample(w,10)
k <- systematic_resample(w,110)
kingaa/pomp documentation built on April 24, 2024, 11:25 a.m.