tests/testthat/test-esm_gau.R

In sjevelazco/flexsdm: Tools for Data Preparation, Fitting, Prediction, Evaluation, and Post-Processing of Species Distribution Models

test_that("ESM gaussain process", {
  data("abies")

  require(dplyr)

  # Using k-fold partition method
  set.seed(10)
  abies2 <- abies %>%
    na.omit() %>%
    group_by(pr_ab) %>%
    dplyr::slice_sample(n = 10) %>%
    group_by()

  abies2 <- part_random(
    data = abies2,
    pr_ab = "pr_ab",
    method = c(method = "rep_kfold", folds = 3, replicates = 5)
  )
  abies2

  # Without threshold specification and with kfold
  esm_gau_t1 <- esm_gau(
    data = abies2,
    response = "pr_ab",
    predictors = c("aet", "cwd", "pH", "awc", "depth"),
    partition = ".part",
    thr = NULL
  )

  expect_equal(class(esm_gau_t1), "list")
  expect_equal(length(esm_gau_t1), 3)
})