tests/testthat/test-grnn.kfold.R

In Shufeng-Li/GRNNs: General Regression Neural Networks Package

test_that("error of input k-folds", {
  data("met")
  data("physg")
  expect_error(grnn.kfold(physg,met,0,"euclidean",scale=TRUE))
  expect_error(grnn.kfold(physg,met,1,"euclidean",scale=TRUE))
})

test_that("error of input in 'fun'", {
  data("met")
  data("physg")
  expect_error(grnn.kfold(physg,met,10,euclidean,scale=TRUE))
})