tests/testthat/test_winklR.R

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

library(PCRedux)

context("winklR")

test_that("winklR gives the correct angle", {
  data("RAS002")
  res <- winklR(x = RAS002[, 1], y = RAS002[, 2], normalize = FALSE)

  expect_that(res[[1]], is_a("numeric"))
})