tests/testthat/test_linear.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("linear")

test_that("Test linear noiseless", {
  f <- function(x) 3 - 2*x + 0.3*x*x

  x <- runif(1000, min=0, max=6);
  #y <- rnorm(n=length(x), mean=f(x), s=0.3);
  y <- f(x);

  metric <- regressoR.quality::RegressionQualityMetric.default(x, y);

  sfr <- regressoR.direct.linear(metric);
  expect_is(sfr, "DirectFitModel");
  expect_identical(sfr@size, length(x));
  expect_true(all(is.finite((sfr@f(x)))));
})

test_that("Test linear noisy", {
  f <- function(x) 3 - 2*x + 0.3*x*x

  x <- runif(1000, min=0, max=6);
  y <- rnorm(n=length(x), mean=f(x), s=0.3);

  metric <- regressoR.quality::RegressionQualityMetric.default(x, y);

  sfr <- regressoR.direct.linear(metric);
  expect_is(sfr, "DirectFitModel");
  expect_identical(sfr@size, length(x));
  expect_true(all(is.finite((sfr@f(x)))));
})