From 1986a527bb704b01c905416578d54b8e06f7bc31 Mon Sep 17 00:00:00 2001 From: Michael Seo Date: Fri, 12 Jul 2024 18:09:17 +0200 Subject: [PATCH] rev --- R/plot_km2.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/plot_km2.R b/R/plot_km2.R index 365c9eac..1f4a0b14 100644 --- 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)) )