diff --git a/function_testing/test_caterpillar_DEC2023.R b/function_testing/test_caterpillar_DEC2023.R index 924cf64..f14ae2e 100644 --- a/function_testing/test_caterpillar_DEC2023.R +++ b/function_testing/test_caterpillar_DEC2023.R @@ -8,10 +8,13 @@ obi_cohort = obi |> obstinit::create_obi_cohort() test_ces = obi_cohort |> - create_caterpillar_df(cesarean, birth) + obstinit::create_caterpillar_df(cesarean, birth) test_dys = obi_cohort |> - create_caterpillar_df(overall_dystocia_compliance_num, overall_dystocia_den_all) + obstinit::create_caterpillar_df(overall_dystocia_compliance_num, overall_dystocia_den_all) -test_ces |> - plot_caterpillar_chart() +test_plot = test_ces |> + obstinit::plot_caterpillar_chart() + +test_plot |> + add_benchmark(y_int = 0.8, add_label = T, label_text = "test", label_xval = 10)