tests/testthat/test-explore_outliers.R

In UBC-MDS/xplrrr: This package makes exploratory data analysis (EDA) simple and seamless. EDA is a crucial phase in the data science workflow as it allows us get a fist glimpse of the data. It is important to identify statistical characteristics of the data so that we can properly set up the rest of the analysis

# Checks if explore_outliers finds the outlier in `col1` of dataframe
test_that("Check number of outliers", {
  df = data.frame('col1'= c(1, 2, 1.00, 3, -1, 100),
                  'col2'= c(3, 1 ,3, -2, 3, -1))
  results = explore_outliers(df, 2)

  expect_identical(results$outlier_count[1], 1)
  expect_identical(results$outlier_count[2], 0)
})

# Checks if explore_outliers throws error if data.frame is not passed
test_that("Function input must be data.frame", {
  expect_error(explore_outliers(2, 2))
})