tests/testthat/test-pca_multithreshold-examples.R

test_that("`pca_multithreshold()` works", {
  data(distance_matrix)
  out <- pca_multithreshold(
    distance_matrix,
    distance.thresholds = c(0, 1000)
    )
  expect_s3_class(out, "data.frame")
  expect_equal(nrow(out), nrow(distance_matrix))
})
BlasBenito/spatialRF documentation built on Sept. 1, 2022, 1:42 p.m.