P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-09 11:41:58 +02:00
Code Releases Activity

(v1.0.1.9002) PCA unit tests

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2020-03-08 11:18:59 +01:00
parent 9fc858f208
commit 77656a676c
20 changed files with 182 additions and 135 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
tests/testthat/test-pca.R
View File

@ -30,8 +30,9 @@ test_that("PCA works", {
genus = mo_genus(mo)) %>% # and genus as we do here
summarise_if(is.rsi, resistance, minimum = 0)
expect_s3_class(pca(resistance_data), "prcomp")
expect_s3_class(prcomp(resistance_data), "prcomp")
pca_model <- pca(resistance_data)
ggplot_pca(pca(resistance_data), ellipse = TRUE)
expect_s3_class(pca_model, "pca")
ggplot_pca(pca_model, ellipse = TRUE)
})