tests/testthat/test_default_3.R

In thomasWeise/regressoR.direct: An R package for Automatic Modeling of 2D-data using "Direct Models" which Represent the Data Based on Either Constant or Linear Interpolation

library("regressoR.direct")
context("default 3")


test_that("Test default", {
  xx <- c(1L,5L,6L,7L,9L,11L,12L,14L,15L,16L,17L,19L,22L,23L,24L,26L,31L,34L,36L,37L,57L,58L,69L,74L,77L,79L,110L,114L,124L,126L,140L,141L,173L,209L,222L,249L,329L,350L,873L,2742L,12733L,13053L,20000000L);
  yy <- c(59L/430L,57L/430L,56L/430L,55L/430L,54L/430L,50L/430L,49L/430L,47L/430L,46L/430L,44L/430L,42L/430L,41L/430L,37L/430L,35L/430L,34L/430L,33L/430L,32L/430L,30L/430L,28L/430L,26L/430L,24L/430L,23L/430L,21L/430L,19L/430L,18L/430L,17L/430L,16L/430L,15L/430L,14L/430L,13L/430L,12L/430L,11L/430L,10L/430L,9L/430L,8L/430L,7L/430L,6L/430L,5L/430L,4L/430L,3L/430L,2L/430L,1L/430L,1L/430L);

  res <- regressoR.base::regressoR.applyLearners(x=xx, y=yy, learners=regressoR.direct.default());
  expect_is(res, "DirectFitModel");
  expect_gte(res@quality, 0);
  expect_lte(res@quality, 0.1);
})