# Copyright 2019 Robert Carnell
context("test-improvedlhs")
test_that("improvedLHS works", {
expect_error(improvedLHS(-1, 2))
expect_error(improvedLHS(10, -30))
expect_error(improvedLHS(10, 2, -2))
expect_error(improvedLHS(NA, 2))
expect_error(improvedLHS(NaN, 2))
expect_warning(expect_error(improvedLHS(Inf, 2)))
expect_error(improvedLHS(10, NA, 2))
expect_error(improvedLHS(10, NaN, 2))
expect_warning(expect_error(improvedLHS(10, Inf, 2)))
expect_error(improvedLHS(10, 2, NA))
expect_error(improvedLHS(10, 2, NaN))
expect_warning(expect_error(improvedLHS(10, 2, Inf)))
set.seed(1976)
expect_true(checkLatinHypercube(improvedLHS(4, 2)))
set.seed(1977)
expect_true(checkLatinHypercube(improvedLHS(3, 3, 5)))
set.seed(1111)
A <- improvedLHS(20, 6)
set.seed(1111)
B <- improvedLHS(20, 6)
expect_true(all(A == B))
D <- improvedLHS(20, 6)
expect_true(any(A != D))
A <- improvedLHS(1, 4)
expect_equal(nrow(A), 1)
expect_true(checkLatinHypercube(A))
})
test_that("improvedLHS errors work", {
expect_error(.Call("improvedLHS_cpp", 3, 4L, 4L))
X <- .Call("improvedLHS_cpp", 1L, 4L, 4L)
expect_equal(nrow(X), 1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.