tests/testthat/test-train.R

In handwriterRF: Handwriting Analysis with Random Forests

test_that("Train random forest works with ranger package", {
  # Despite setting the seed, the random forest created on Windows has
  # reasonable values but is not equal to the fixture random forest created on
  # Stephanie's Mac. I tried using skip_on_os(os = "windows", arch = NULL), but
  # this test still returned an error when CRAN ran automated tests on Debian.
  # As a work around, test that the function runs without error.

  expect_error(train_rf(
    df = train,
    ntrees = 200,
    distance_measures = "euc",
    output_dir = NULL,
    run_number = 1,
    downsample = TRUE
  ), NA)
})