library(miscR)
context("sample.df")
test_that("simple sample returns correct percent", {
expect_equal(nrow(sample.df(workhrs, size=0.13, sample.only=1)), 793)
expect_equal(nrow(sample.df(workhrs, size=0.71, sample.only=1)), 4330)
expect_equal(nrow(sample.df(workhrs, size=0.99, sample.only=1)), 6037)
})
test_that("simple sample returns correct absolute", {
expect_equal(nrow(sample.df(workhrs, size=1, sample.only=1)), 1)
expect_equal(nrow(sample.df(workhrs, size=10, sample.only=1)), 10)
})
test_that("stratified sample returns correct percent", {
expect_equal(nrow(sample.df(workhrs, size=0.13, sample.only=1, "sex")), 792)
expect_equal(nrow(sample.df(workhrs, size=0.99, sample.only=1, "education")), 6037)
expect_equal(nrow(sample.df(workhrs, size=0.71, sample.only=1, "work.class")), 4329)
expect_equal(nrow(sample.df(workhrs, size=0.71, sample.only=1, c("race", "sex"))), 4329)
expect_equal(nrow(sample.df(workhrs, size=0.99, sample.only=1, c("sex", "education"))), 6039)
expect_equal(nrow(sample.df(workhrs, size=0.13, sample.only=1, c("race", "marital.status"))), 793)
})
test_that("stratified sample returns correct absolute", {
expect_equal(nrow(sample.df(workhrs, size=1, sample.only=1, "sex")), 2)
expect_equal(nrow(sample.df(workhrs, size=33, sample.only=1, "race")), 99)
expect_equal(nrow(sample.df(workhrs, size=12, sample.only=1, "work.class")), 60)
})
test_that("size too great warning", {
expect_warning(sample.df(workhrs, size=160, sample.only=1, "race"), "Strata cell contains fewer records than specified sample size. No observations selected.")
expect_warning(sample.df(workhrs, size=100, sample.only=1, c("race", "sex")), "Strata cell contains fewer records than specified sample size. No observations selected.")
})
# Need to test if sample is correct, even if warning is given
options(warn = -1)
test.1 <- nrow(sample.df(workhrs, size=160, sample.only=1, "race"))
test.2 <- nrow(sample.df(workhrs, size=225, sample.only=1, "marital.status"))
test.3 <- nrow(sample.df(workhrs, size=100, sample.only=1, c("race", "sex")))
options(warn = 0)
test_that("small cells skipped", {
expect_equal(test.1, 320)
expect_equal(test.2, 675)
expect_equal(test.3, 400)
})
rm(test.1, test.2, test.3)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.