tests/testthat/test_getNumTrainingValues.R

library(otsad)
context("Get Number of Training Values")

test_that("GetNumTrainingValues gives the correct result", {

  expect_equal(GetNumTrainingValues(750), 112)
  expect_equal(GetNumTrainingValues(8000), 750)

})

Try the otsad package in your browser

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

otsad documentation built on Sept. 6, 2019, 5:02 p.m.