tests/testthat/test-my_knn_cv.R

In laurenng/stat302Package: What the Package Does (One Line, Title Case)

test_that("works accordingly", {

  data <- my_penguins %>%
            drop_na()
  train_data <- data %>%
    dplyr::select(bill_length_mm, bill_depth_mm,
           flipper_length_mm, body_mass_g)
  target_class <- data$species

  myTest <- my_knn_cv(train_data, target_class, 2, 2)

  expect_type(myTest, "list")
})
test_that("types are correct", {
  data <- my_penguins %>%
    drop_na()
  train_data <- data %>%
    dplyr::select(bill_length_mm, bill_depth_mm,
                  flipper_length_mm, body_mass_g)
  target_class <- data$species

  results <- my_knn_cv(train_data, target_class, 2, 2)
  expect_type(results$cv_error, "double")
  expect_type(results$class, "character")
})
test_that("types are correct", {
  data <- my_penguins %>%
    drop_na()
  expect_error(my_knn_cv(data, "penguins", 1, 1))
})