From 906dfc8593c0f4c4588ac00c11f2f1d5f0a1d514 Mon Sep 17 00:00:00 2001 From: "Hyunmin Kim (Brandon)" Date: Tue, 27 Oct 2020 21:24:31 +0900 Subject: [PATCH] Update surv_cutpoint.R function make.names apply to variables --- R/surv_cutpoint.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/surv_cutpoint.R b/R/surv_cutpoint.R index c6bf85a..afa592f 100644 --- a/R/surv_cutpoint.R +++ b/R/surv_cutpoint.R @@ -123,7 +123,7 @@ surv_categorize <- function(x, variables = NULL, labels = c("low", "high")){ if(is.null(variables)) variables <- colnames(data) data <- data[, variables, drop = FALSE] - cutpoints <- x$cutpoint[variables,"cutpoint"] + cutpoints <- x$cutpoint[make.names(variables),"cutpoint"] nvar <- length(variables) if(nvar >=2){ res <- apply(t(data), 2, .dichotomize, cutpoints, labels)