tests/testthat/test.R

context("refnr test")

test_that("testcase", {
  formulas <- rbind(c(Name = "Length",
                      Formula = "Sepal.Length + Petal.Length"),
                    c(Name = "Width",
                      Formula = "Sepal.Width + Petal.Width"))
  res <- refnr(iris, formulas)
  expect_equal(res[1,1], 6.5)
})

Try the refnr package in your browser

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

refnr documentation built on May 2, 2019, 6:09 a.m.