test_that("ten inlier example works", {
  x <- SimulateAnomalies(100, 10, 0)
  index <- FindInliers(x)
  expect_equal(index, 1:10)
})
test_that("no inlier example works",{
  x <- SimulateAnomalies(100, 0, 0)
  index <- FindInliers(x)
  expect_equal(length(index), 0)
})