Nothing
library(sperrorest)
# resample_strat.uniform() Tue Feb 14 22:04:12 2017 ----------------------------
test_that("resample_start.uniform() produces correct output", {
data(ecuador) # Muenchow et al. (2012), see ?ecuador
d <- resample_strat_uniform(ecuador,
param = list(strat = "slides", nstrat = 100)
)
expect_equal(nrow(d), 200) # == 200
expect_equal(sum(d$slides == "TRUE"), 100) # == 100
})
# resample_uniform() Tue Feb 14 22:07:03 2017 ----------------------------------
test_that("resample_uniform() produces correct output", {
data(ecuador) # Muenchow et al. (2012), see ?ecuador
d <- resample_uniform(ecuador, param = list(strat = "slides", n = 400))
expect_equal(nrow(d), 400) # == 400
})
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.