tests/testthat/test-kfold_cv.R

In rettopnivek/binclass: Personalized functions for binary classification.

context("Tests for kfold_cv function")
library(binclass)

# Create example data
n = 1000
K = 8
K_sig = 4
param = c( .25, .75 )
sim = bc_simulate( n, K, K_sig, param = param )
cv = kfold_cv( sim$y, sim$X, 'glm' )

test_that( "kfold_cv class works", {
  expect_true( is.kfold_cv( cv ) )
})