tests/testthat/test-my_rf_cv.R

test_that("my_rf_cv works", {
  dat <- na.omit(my_penguins[, c("body_mass_g", "bill_length_mm",
                                 "bill_depth_mm", "flipper_length_mm")])
  expect_type(my_rf_cv(dat, 2), "double")
})
RuofengT/stat302package documentation built on Dec. 18, 2021, 11:54 a.m.