rev

hta-pharma · Jul 12, 2024 · 1986a52 · 1986a52
1 parent d977897
commit 1986a52
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot_km2.R b/R/plot_km2.R
@@ -105,8 +105,8 @@ kmplot2 <- function(weights_object,
  if (km_layout %in% c("by_trial", "all")) {
  kmlist_1_2 <- list(
  setNames(
- all_km[c(1, 4, 3, 5)],
- c(trt_ipd, trt_common, paste0(trt_ipd, " (weighted)"), paste0(trt_common, " (weighted)"))
+ all_km[c(4, 1, 3, 5)],
+ c(trt_common, trt_ipd, paste0(trt_ipd, " (weighted)"), paste0(trt_common, " (weighted)"))
  ),
  setNames(all_km[c(6, 2)], c(trt_common, trt_agd))
  )