tests/testthat/test-stats.R

In kahaaga/tstools: Useful functions

context("Stats functions tests")

dt <- rnorm(n = 100, mean = 0, sd = 1)
dt[80] <- sd(dt) * 10
dt[50] <- -sd(dt) * 10

test_that("Outliers are removed", {
  expect_true(length(remove_outliers(dt)) < length(dt))
})

test_that("Basic stats function works", {
  expect_false(any(is.na(summary_stats(dt))))
  expect_false(is.null(summary_stats(dt)))
})