| /dports/math/R-cran-recipes/recipes/tests/testthat/ |
| H A D | test_corr.R | 80 rec_param <- tunable.step_corr(rec$steps[[1]]) globalVar
81 expect_equal(rec_param$name, c("threshold"))
82 expect_true(all(rec_param$source == "recipe"))
83 expect_true(is.list(rec_param$call_info))
84 expect_equal(nrow(rec_param), 1)
86 names(rec_param),
|
| H A D | test_nzv.R | 78 rec_param <- tunable.step_nzv(rec$steps[[1]]) globalVar
79 expect_equal(rec_param$name, c("freq_cut", "unique_cut"))
80 expect_true(all(rec_param$source == "recipe"))
81 expect_true(is.list(rec_param$call_info))
82 expect_equal(nrow(rec_param), 2)
84 names(rec_param),
|
| H A D | test_poly.R | 74 rec_param <- tunable.step_poly(rec$steps[[1]]) globalVar
75 expect_equal(rec_param$name, c("degree"))
76 expect_true(all(rec_param$source == "recipe"))
77 expect_true(is.list(rec_param$call_info))
78 expect_equal(nrow(rec_param), 1)
80 names(rec_param),
|
| H A D | test_bs.R | 83 rec_param <- tunable.step_bs(rec$steps[[1]]) globalVar
84 expect_equal(rec_param$name, c("deg_free", "degree"))
85 expect_true(all(rec_param$source == "recipe"))
86 expect_true(is.list(rec_param$call_info))
87 expect_equal(nrow(rec_param), 2)
89 names(rec_param),
|
| H A D | test_ns.R | 85 rec_param <- tunable.step_ns(rec$steps[[1]]) globalVar
86 expect_equal(rec_param$name, c("deg_free"))
87 expect_true(all(rec_param$source == "recipe"))
88 expect_true(is.list(rec_param$call_info))
89 expect_equal(nrow(rec_param), 1)
91 names(rec_param),
|
| H A D | test_kpca_poly.R | 77 rec_param <- tunable.step_kpca_poly(rec$steps[[1]]) globalVar
78 expect_equal(rec_param$name, c("num_comp", "degree", "scale_factor", "offset"))
79 expect_true(all(rec_param$source == "recipe"))
80 expect_true(is.list(rec_param$call_info))
81 expect_equal(nrow(rec_param), 4)
83 names(rec_param),
|
| H A D | test_kpca_rbf.R | 77 rec_param <- tunable.step_kpca_rbf(rec$steps[[1]]) globalVar
78 expect_equal(rec_param$name, c("num_comp", "sigma"))
79 expect_true(all(rec_param$source == "recipe"))
80 expect_true(is.list(rec_param$call_info))
81 expect_equal(nrow(rec_param), 2)
83 names(rec_param),
|
| H A D | test_discretized.R | 120 rec_param <- tunable.step_discretize(rec$steps[[1]]) globalVar
121 expect_equal(rec_param$name, c("min_unique", "num_breaks"))
122 expect_true(all(rec_param$source == "recipe"))
123 expect_true(is.list(rec_param$call_info))
124 expect_equal(nrow(rec_param), 2)
126 names(rec_param),
|
| H A D | test_roll.R | 81 rec_param <- tunable.step_window(rec$steps[[1]]) globalVar
82 expect_equal(rec_param$name, c("statistic", "window"))
83 expect_true(all(rec_param$source == "recipe"))
84 expect_true(is.list(rec_param$call_info))
85 expect_equal(nrow(rec_param), 2)
87 names(rec_param),
|
| H A D | test_impute_bag.R | 88 rec_param <- tunable.step_impute_bag(rec$steps[[1]]) globalVar
89 expect_equal(rec_param$name, c("trees"))
90 expect_true(all(rec_param$source == "recipe"))
91 expect_true(is.list(rec_param$call_info))
92 expect_equal(nrow(rec_param), 1)
94 names(rec_param),
|
| H A D | test_impute_roll.R | 117 rec_param <- tunable.step_impute_roll(rec$steps[[1]]) globalVar
118 expect_equal(rec_param$name, c("statistic", "window"))
119 expect_true(all(rec_param$source == "recipe"))
120 expect_true(is.list(rec_param$call_info))
121 expect_equal(nrow(rec_param), 2)
123 names(rec_param),
|
| H A D | test_isomap.R | 115 rec_param <- tunable.step_isomap(rec$steps[[1]]) globalVar
116 expect_equal(rec_param$name, c("num_terms", "neighbors"))
117 expect_true(all(rec_param$source == "recipe"))
118 expect_true(is.list(rec_param$call_info))
119 expect_equal(nrow(rec_param), 2)
121 names(rec_param),
|
| H A D | test_downsample.R | 146 rec_param <- tunable.step_downsample(rec$steps[[1]]) globalVar
147 expect_equal(rec_param$name, c("under_ratio"))
148 expect_true(all(rec_param$source == "recipe"))
149 expect_true(is.list(rec_param$call_info))
150 expect_equal(nrow(rec_param), 1)
152 names(rec_param),
|
| H A D | test_ica.R | 145 rec_param <- tunable.step_ica(rec$steps[[1]]) globalVar
146 expect_equal(rec_param$name, c("num_comp"))
147 expect_true(all(rec_param$source == "recipe"))
148 expect_true(is.list(rec_param$call_info))
149 expect_equal(nrow(rec_param), 1)
151 names(rec_param),
|
| H A D | test_impute_mean.R | 99 rec_param <- tunable.step_impute_mean(rec$steps[[1]]) globalVar
100 expect_equal(rec_param$name, c("trim"))
101 expect_true(all(rec_param$source == "recipe"))
102 expect_true(is.list(rec_param$call_info))
103 expect_equal(nrow(rec_param), 1)
105 names(rec_param),
|
| H A D | test_upsample.R | 144 rec_param <- tunable.step_upsample(rec$steps[[1]]) globalVar
145 expect_equal(rec_param$name, c("over_ratio"))
146 expect_true(all(rec_param$source == "recipe"))
147 expect_true(is.list(rec_param$call_info))
148 expect_equal(nrow(rec_param), 1)
150 names(rec_param),
|
| H A D | test_impute_knn.R | 168 rec_param <- tunable.step_impute_knn(rec$steps[[1]]) globalVar
169 expect_equal(rec_param$name, c("neighbors"))
170 expect_true(all(rec_param$source == "recipe"))
171 expect_true(is.list(rec_param$call_info))
172 expect_equal(nrow(rec_param), 1)
174 names(rec_param),
|
| H A D | test_pca.R | 146 rec_param <- tunable.step_pca(rec$steps[[1]]) globalVar
147 expect_equal(rec_param$name, c("num_comp", "threshold"))
148 expect_true(all(rec_param$source == "recipe"))
149 expect_true(is.list(rec_param$call_info))
150 expect_equal(nrow(rec_param), 2)
152 names(rec_param),
|
| H A D | test_other.R | 265 rec_param <- tunable.step_other(rec$steps[[1]]) globalVar
266 expect_equal(rec_param$name, c("threshold"))
267 expect_true(all(rec_param$source == "recipe"))
268 expect_true(is.list(rec_param$call_info))
269 expect_equal(nrow(rec_param), 1)
271 names(rec_param),
|