tests/testthat/test-exprel.R

context("exprel")

test_that("exprel behaves as it should", {
  ## first check some simple values
  values <- c(-Inf, NA, seq(-5, 5, length.out=10))
  r.values <- expm1(values) / values
  exprel.values <- .exprel(values)
  expect_equal(exprel.values, r.values,
               label="exprel: value tests")


  ## the naive R code doesn't compute these right so force the
  ## computation.
  values <- c(Inf, 0)
  exprel.values <- .exprel(values)
  desired.values <- c(Inf, 1)
  expect_equal(exprel.values, desired.values,
               label="exprel: special value tests")

}
)

Try the texmex package in your browser

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

texmex documentation built on Nov. 17, 2017, 5:11 a.m.