Searched refs:rec1_p (Results 1 – 2 of 2) sorted by relevance
| /dports/math/R-cran-recipes/recipes/tests/testthat/ |
| H A D | test_downsample.R | 24 rec1_p <- prep(rec1, training = iris2) globalVar
31 expect_equal(trained, tidy(rec1_p, number = 1))
34 tr_xtab <- table(juice(rec1_p)$Species, useNA = "always")
35 te_xtab <- table(bake(rec1_p, new_data = iris2)$Species, useNA = "always")
39 expect_equal(sum(is.na(juice(rec1_p)$Species)), 5)
|
| H A D | test_upsample.R | 23 rec1_p <- prep(rec1, training = iris2) globalVar
30 expect_equal(trained, tidy(rec1_p, number = 1))
32 tr_xtab <- table(juice(rec1_p)$Species, useNA = "always")
33 te_xtab <- table(bake(rec1_p, new_data = iris2)$Species, useNA = "always")
37 expect_equal(sum(is.na(juice(rec1_p)$Species)), max(og_xtab))
|