tests/testthat/test-myStatsHelpers.R

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

context("Stats Helpers")


# my.degrees.of.freedom(src.vector, is.sample)
test_that("my.degrees.of.freedom", {
  expect_equal(my.degrees.of.freedom(1), 0)
  expect_equal(my.degrees.of.freedom(1:2), 1)
  expect_equal(my.degrees.of.freedom(1:3), 2)
  expect_equal(my.degrees.of.freedom(1, is.sample = FALSE), 1)
  expect_equal(my.degrees.of.freedom(1:2, is.sample = FALSE), 2)
  expect_equal(my.degrees.of.freedom(1:3, is.sample = FALSE), 3)
})

# my.errors(numeric)
test_that("my.errors.numeric", {
  expect_equal(my.errors(1:50), seq(-24.5, 24.5))
})

# my.sum.of.squared.errors(numeric)
test_that("my.sum.of.squared.errors.numeric", {
  expect_equal(my.sum.of.squared.errors(1:50), 10412.5)
})

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