tests/testthat/test_decision_modus.R

In devSJR/PCRedux: Quantitative Polymerase Chain Reaction (qPCR) Data Mining and Machine Learning Toolkit

library(PCRedux)

context("decision_modus")

test_that("decision_modus gives the correct dimensions and properties", {
  library(qpcR)

  res_decision_modus_freq <- decision_modus(c("a", "a", "y", "n", "b"), max_freq = TRUE)
  res_decision_modus_table <- decision_modus(c("a", "a", "y", "n", "b"), max_freq = FALSE)

  expect_that(res_decision_modus_freq, is_a("factor"))
  expect_that(res_decision_modus_table, is_a("data.frame"))
  expect_true(levels(res_decision_modus_freq)[1] == "a")
  expect_true(res_decision_modus_table[1, 2] == 2)
})