tests/testthat/test_RNGmeasures.R

context("Check inputs")
library(invctr)

test_that("RNGmeasures", {
  expect_output(RNGmeasures(y = round(runif(100,1,9)), minScale = 1, maxScale = 9), "1 variables")
})
FredHasselman/randseqR documentation built on May 29, 2020, 11:57 a.m.