tests/testthat/test_fp1.R

# Test for fp1 function Returns: An error message if any tests
# fail

context("fp1")

test_that("output", {
  expect_equal(mode(fp1()), "numeric")
  expect_equal(dim(fp1()), c(35, 10))
  expect_equal(is.matrix(fp1()), TRUE)
})
joemckean/mathstat documentation built on May 30, 2019, 2:01 p.m.