tests/testthat/test-my_rf_cv.R

test_that("Non-numeric error check for input", {
  expect_error(my_rf_cv("String"))
})

test_that("zero error check for input", {
  expect_error(my_rf_cv(0))
})

test_that("Output type of data check", {
  expect_type(my_rf_cv(5), "double")
})

test_that("negative error check for input", {
  expect_error(my_rf_cv(-1))
})
hadiyusri/project3package documentation built on Dec. 20, 2021, 2:40 p.m.