tests/testthat/test-nested_cv.R

In rettopnivek/binclass: Personalized functions for binary classification.

context("Tests for nested_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 )
ncv = nested_cv( sim$y, sim$X, 'glm' )

test_that( "nested_cv class works", {
  expect_true( is.nested_cv( ncv ) )
})

test_that( "nested_cv levels method works correctly", {
  expect_equal( levels( ncv ), levels( sim ) )
})

test_that( "nested_cv dimnames method works correctly", {
  expect_equal( dimnames( ncv ), dimnames( sim ) )
})

test_that( "nested_cv print method works", {
  expect_output( print( ncv ) )
})