tests/testthat/test_TO1Risk.R

context("Testing TO1Risk.R function")

test_that('data types, dimension of test data', {
  expect_is(TO1Risk,'data.frame')
  expect_is(colnames(TO1Risk), 'character')
  expect_equal(nrow(TO1Risk), 378)
  expect_equal(ncol(TO1Risk), 31)
})
MAnalytics/akmedoids documentation built on Aug. 28, 2021, 10:19 p.m.