Close #22

Author: ShixiangWang

NEWS.md

@@ -1,5 +1,6 @@
 # ezcox 1.0.2
 
+* Fixed changable `ALL` group in `ezcox_group()`.
 * Supported interaction term in `controls` option.
 
 

R/ezgrp.R

@@ -96,6 +96,16 @@ ezcox_group <- function(data, grp_var, covariate, controls = NULL,
   fit_models <- get_models(md_list)
 
   ## show_models
+  if ("ALL" %in% md_list$models$Group) {
+    # Move this model to bottom
+    idx_all <- which(md_list$models$Group == "ALL")
+    idx <- seq_len(length(md_list$models$Group))
+    if (idx_all != max(idx)) {
+      new_order <- c(setdiff(idx, idx_all), idx_all)
+      fit_models <- fit_models[new_order]
+    }
+  }
+
   p <- show_models(fit_models, merge_models = TRUE, drop_controls = TRUE, headings = headings, ...)
 
   if (is.null(p)) {

vignettes/ezgroup.Rmd

@@ -30,6 +30,9 @@ library(ezcox)
 
 ```{r, fig.width=7, fig.height=5}
 library(survival)
+
+lung$ph.ecog <- factor(lung$ph.ecog)
+
 ezcox_group(lung, grp_var = "sex", covariate = "ph.ecog")
 ezcox_group(lung, grp_var = "sex", covariate = "ph.ecog", controls = "age")
 ezcox_group(lung, grp_var = "sex", covariate = "ph.ecog", controls = "age", add_all = TRUE)