tests/testthat/test_earlyreg.R

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

library(PCRedux)

context("earlyreg")

test_that("earlyreg gives a slope and intercept of an amplification curve data from a quantitative PCR experiment", {
  library(chipPCR)
  res <- earlyreg(x = C316.amp[, 2], y = C316.amp[, 3], range = 6)

  expect_that(res, is_a("numeric"))
  expect_length(res, 3)
  expect_true(round(res[1], 2) == 119.96)
  expect_true(round(res[2], 4) == -25.8153)
})