tests/testthat/test_head2tailratio.R

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

library(PCRedux)

context("head2tailratio")

test_that("head2tailratio gives the correct dimensions and properties", {
  library(qpcR)
  res <- head2tailratio(y = competimer[, 2], normalize = FALSE, slope_normalizer = TRUE)
  res_normalized <- head2tailratio(y = competimer[, 2], normalize = TRUE, slope_normalizer = TRUE)

  expect_that(res, is_a("numeric"))
  expect_that(res_normalized, is_a("numeric"))
  expect_true(res <= 3.589284)
  expect_true(res_normalized >= 23)
})