tests/testthat/test_tReem.R

library(PCRedux)

context("tReem")

test_that("tReem performs the shape based clustering", {

  res_foo <- try(tReem("foo"), silent=TRUE)
  res_bar <- try(tReem("bar", cor=FALSE), silent=TRUE)

  expect_equal(class(res_foo), "try-error")
  expect_equal(class(res_bar), "try-error")
})
devSJR/PCRedux documentation built on Aug. 3, 2022, 1:34 p.m.