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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.