tests/testthat/test-iris.R

test_that("iris", {
  irisnn50_ltsa <-
    ltsa(
      iris,
      nn_method = "exact",
      n_neighbors = 50,
      include_self = FALSE,
      eig_method = "eig"
    )
  expect_equal(abs(irisnn50_ltsa), abs(irisnn50_ltsa_expected), tolerance = 1e-2)
})
jlmelville/flotsam documentation built on April 17, 2025, 9:30 p.m.