test_that("ten outlier example works", {
  x <- SimulateAnomalies(100, 10, 10)
  sumFrame <- SummarizeOutliers(x)
  expect_equal(sumFrame$Record, 1:10)
  expect_equal(sumFrame$Value, rep(10, 10))
  expect_equal(sumFrame$ThreeSigma, rep(0, 10))
  expect_equal(sumFrame$Hampel, rep(1, 10))
  expect_equal(sumFrame$Boxplot, rep(1, 10))
})
test_that("no outlier example works", {
  x <- SimulateAnomalies(100, 0, 10)
  sumFrame <- SummarizeOutliers(x)
  expect_equal(nrow(sumFrame), 0)
})