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:
@ -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)
|
||||
})
|
||||
|
Reference in New Issue
Block a user