updates as per conversation

insightsengineering · Nov 18, 2024 · 3ea63ec · 3ea63ec
1 parent 2a2a2a5
commit 3ea63ec
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -16,10 +16,11 @@
 # tern 0.9.6
 
 ### Enhancements
-* Added `median_long`, `quantiles_lower` and `quantiles_upper` to `s_surv_time` which includes estimate and confidence interval in one statistic.
-* Added `hr_long` to `s_coxph_pairwise` which includes estimate and confidence interval in one statistic.
-* Added `event_free_rate_long` to `s_surv_timepoint` which includes estimate and confidence interval in one statistic.
-* Added `rate_diff_long` to `s_surv_timepoint_diff` which includes estimate and confidence interval in one statistic.
+* Added `median_ci_3d` to `s_summary` which includes estimate and confidence interval in one statistic.
+* Added `median_ci_3d`, `quantiles_lower` and `quantiles_upper` to `s_surv_time` which includes estimate and confidence interval in one statistic.
+* Added `hr_ci_3d` to `s_coxph_pairwise` which includes estimate and confidence interval in one statistic.
+* Added `event_free_rate_3d` to `s_surv_timepoint` which includes estimate and confidence interval in one statistic.
+* Added `rate_diff_ci_3d` to `s_surv_timepoint_diff` which includes estimate and confidence interval in one statistic.
 * Added `errorbar_width` and `linetype` parameters to `g_lineplot`.
 * Added the `.formats` argument to `tabulate_rsp_subgroups` and `tabulate_survival_subgroups` to allow users to specify formats.
 * Added the `riskdiff` argument to `tabulate_rsp_subgroups` and `tabulate_survival_subgroups` to allow users to add a risk difference table column, and function `control_riskdiff` to specify settings for the risk difference column.

diff --git a/R/analyze_variables.R b/R/analyze_variables.R
@@ -239,7 +239,8 @@ s_summary.numeric <- function(x,
   y$geom_cv <- c("geom_cv" = sqrt(exp(stats::sd(log(x_no_negative_vals), na.rm = FALSE) ^ 2) - 1) * 100) # styler: off
 
   geom_mean_ci_3d <- c(y$geom_mean, y$geom_mean_ci)
-  y$geom_mean_ci_3d <- formatters::with_label(geom_mean_ci_3d, paste0("Geometric Mean (", f_conf_level(control$conf_level), ")"))
+  y$geom_mean_ci_3d <- formatters::with_label(geom_mean_ci_3d,
+                                              paste0("Geometric Mean (", f_conf_level(control$conf_level), ")"))
 
   y
 }