tests/testthat/test-PCA.R

test_that("PCA works", {
  expect_equal(round(PCA(iris[,1:4])$x[1,1], 3), -2.684)
})
IsaacShaffer/PCAtools documentation built on Dec. 31, 2020, 1:06 p.m.