test_that("ten inlier example works", {
  x <- SimulateAnomalies(100, 10, 0)
  sumFrame <- SummarizeInliers(x)
  expect_equal(sumFrame$Record, 1:10)
  expect_equal(sumFrame$Value, rep(0, 10))
})
test_that("no inlier example works", {
  x <- SimulateAnomalies(100, 0, 0)
  sumFrame <- SummarizeInliers(x)
  expect_equal(nrow(sumFrame), 0)
})