tests/testthat/test-pca-examples.R

test_that("`pca()` works", {
  data(distance_matrix)
  out <- pca(x = distance_matrix)
  expect_s3_class(out, "data.frame")
  expect_equal(ncol(out), ncol(distance_matrix))
  expect_equal(nrow(out), nrow(distance_matrix))
})
BlasBenito/spatialRF documentation built on Sept. 1, 2022, 1:42 p.m.