tests/testthat/test-PCARE.R

test_that("Reconstruction error works", {
  expect_equal(floor(PCAReconstructionError(iris[,1:4], PCA(iris[,1:4]))[1,1]), 51)
})
IsaacShaffer/PCAtools documentation built on Dec. 31, 2020, 1:06 p.m.