add file for testing caterpillar df and plot

obianalysts-umich · Dec 7, 2023 · 2fb8b98 · 2fb8b98
1 parent 3e82e0d
commit 2fb8b98
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/function_testing/test_caterpillar_DEC2023.R b/function_testing/test_caterpillar_DEC2023.R
@@ -0,0 +1,17 @@
+
+library(tidyverse)
+library(obstinit)
+
+obi = obstinit::read_current_data()
+
+obi_cohort = obi |> 
+  obstinit::create_obi_cohort()
+
+test_ces = obi_cohort |> 
+  create_caterpillar_df(cesarean, birth)
+
+test_dys = obi_cohort |> 
+  create_caterpillar_df(overall_dystocia_compliance_num, overall_dystocia_den_all)
+
+test_ces |> 
+  plot_caterpillar_chart()