tests/testthat/test-numPerms.R

library("testthat")
library("permute")

context("Testing shuffleSet()")

test_that("numPerms works with complex, but small, design", {
    h <- how(within = Within(type = "series", constant = TRUE),
             plots = Plots(strata = gl(2, 5), type = "series", mirror = TRUE))
    np <- numPerms(10, control = h)
    expect_is(np, "numeric")
    expect_equal(np, 10)
})

Try the permute package in your browser

Any scripts or data that you put into this service are public.

permute documentation built on May 29, 2017, 11:21 a.m.