tests/testthat/test_winklR.R

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"))
})

Try the PCRedux package in your browser

Any scripts or data that you put into this service are public.

PCRedux documentation built on May 11, 2022, 5:18 p.m.