tests/testthat/test-myRegression.R

In vanNijnatten/Learn-Statistics: Dummy package that shows how statistical functions are made

context("Regression")


create.plain.regressino.obj <- function() {
  my.obj <- list(x = 1:5, y = 1:5, is.sample = FALSE)
  class(my.obj) <- "regression"
  return(my.obj)
}


# my.regression(object)
test_that("my.regression", {
  my.obj <- my.regression(y.vector = seq(1, 2, 0.1), x.vector = seq(-5, 5), is.sample = TRUE, 
    type = "linear")
  expect_true(!is.null(my.obj))
  expect_equal(names(my.obj), c("y", "x", "is.sample"))
  expect_equal(my.obj$x, seq(-5, 5))
  expect_equal(my.obj$y, seq(1, 2, 0.1))
  expect_true(my.obj$is.sample)
  expect_equal(class(my.obj), c("linear_regression", "regression"))
})

# my.regression.prediction.formula.default(object)
test_that("my.regression.prediction.formula", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.regression.prediction.formula(my.obj), "Not Implemented")
})

# my.intercept.default(object)
test_that("my.intercept", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.intercept(my.obj), "Not Implemented")
})

# my.slope(object)
test_that("my.slope", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.slope(my.obj), "Not Implemented")
})

# my.covariance.default(object)
test_that("my.covariance", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.covariance(my.obj), "Not Implemented")
})

# my.errors.default(object)
test_that("my.errors", {
  expect_equal(my.errors(""), "Not Implemented")
})

# my.errors.regression(my.regression)
test_that("my.errors", {
  my.obj <- my.regression(x.vector = 1:50, y.vector = 1:50)
  expect_equal(my.errors(my.obj), rep(0, 50))
})

# my.correlation.default(object)
test_that("my.correlation", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.correlation(my.obj), "Not Implemented")
})

# my.coefficient.of.determination.default(object)
test_that("my.coefficient.of.determination", {
  my.obj <- create.plain.regressino.obj()
  expect_equal(my.coefficient.of.determination(my.obj), "Not Implemented")
})