add tests

nutriverse · Feb 22, 2024 · a88a1f5 · a88a1f5
1 parent cdbd2b8
commit a88a1f5
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-muac-prevalence.R b/tests/testthat/test-muac-prevalence.R
@@ -7,3 +7,15 @@ muac_prevalence <- ipc_muac_check(
 
 
 testthat::expect_type(muac_prevalence, "double")
+
+
+muac_prevalence <- muac_data |>
+  dplyr::mutate(sex = ifelse(sex == 1, "m", "f")) |>
+  ipc_muac_check(
+    sex_recode = c("m", "f"), muac_units = "cm",
+    oedema_recode = c(1, 2), .summary = FALSE
+  ) |>
+  ipc_calculate_prevalence(status = "mam")
+
+
+testthat::expect_type(muac_prevalence, "double")