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

(v1.0.1.9002) PCA unit tests

This commit is contained in:
2020-03-08 11:18:59 +01:00
parent 9fc858f208
commit 77656a676c
20 changed files with 182 additions and 135 deletions

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)
})