tests/testthat/test_boxcox.R

In STAT545-UBC-students/hw07-Mengsuper: Convenient Computation of Powers

context("Box-Cox functions")

test_that("Input is not numbers", {
    x <- c("Hello", "World")
    expect_match(boxCox(x), "Please enter numbers")
})

test_that("Input is non-positive.", {
    x <- c(-1, 0)
    expect_match(boxCox(x), "Please enter positive numbers")
})

test_that("At least numeric values work.", {
    x <- c(1, 8, 10)
    lambda = 0
    expect_equal(boxCox(x, lambda), log(x))
})

test_that("At least numeric values work.", {
    x <- 2
    expect_equal(boxCox(x), 1) # 1 is expected value
})