tests/testthat/test_learn.R

In thomasWeise/regressoR: An R Package for Fitting Models to 2-Dimensional (x-y) Data

library("regressoR")
context("regressoR.learn")

slow.tests <- is.na(Sys.getenv("TRAVIS", unset=NA))
if(slow.tests) { print("Slow tests for learn."); } else
               { print("Fast tests for learn."); }

test_that("Test regressoR.learn I", {
  if(slow.tests) {
    n <- 100L;
    dx <- rnorm(n);
    dy <- rnorm(n=n, mean=50*dx*dx-33);
    result <- regressoR.learn(x=dx, y=dy);
    expect_true(!(is.null(result)));
    expect_is(result, "FittedModel");
    validObject(result);
  } else { expect_true(TRUE); }
})

test_that("Test regressoR.learn II", {
  if(slow.tests) {
    n <- 100L;
    dx <- runif(n) + 0.1
    dy.raw <- 1 + 0.4* exp(5 - 3*dx + 0.6*dx*dx)
    dy <- rnorm(n=n, mean=dy.raw)
    result <- regressoR.learn(x=dx, y=dy);
    expect_true(!(is.null(result)));
    expect_is(result, "FittedModel");
    validObject(result);
  } else { expect_true(TRUE); }
})