tests/testthat/test_BearhausDegreeClean.R

context("BearhausDegreeClean")

test_that("BearhausDegreeClean converts data.frame", {
  expect_equal(BearhausDegreeClean.data.frame(iris), iris)
})

test_that("BearhausDegreeClean converts data.frame", {
  expect_equal(BearhausDegreeClean(list(iris, iris)), rbind(iris, iris))
})
BenBarnard/GradSchoolReport documentation built on Dec. 31, 2017, 12:11 p.m.