Note

jinseob2kim · Nov 14, 2024 · f150811 · f150811
1 parent 8edbf1b
commit f150811
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/forestcox.R b/R/forestcox.R
@@ -145,7 +145,7 @@ count_event_by <- function(formula, data, count_by_var = NULL, var_subgroup = NU
 
 
 TableSubgroupCox <- function(formula, var_subgroup = NULL, var_cov = NULL, data, time_eventrate = 3 * 365, decimal.hr = 2, decimal.percent = 1, decimal.pvalue = 3, cluster = NULL, strata = NULL, weights = NULL, event = FALSE, count_by = NULL, labeldata = NULL) {
-  . <- NULL
+  . <- variable <- val_label <- NULL
   if (is.null(count_by) && !(event)) {
     ### var_subgroup이 categorical variable이 아닌 경우 중단 ###
     if (any(class(data) == "survey.design" & !is.null(var_subgroup))) {

diff --git a/R/forestglm.R b/R/forestglm.R
@@ -42,8 +42,7 @@
 #' @importFrom utils tail
 
 TableSubgroupGLM <- function(formula, var_subgroup = NULL, var_cov = NULL, data, family = "binomial", decimal.estimate = 2, decimal.percent = 1, decimal.pvalue = 3, labeldata = NULL) {
-  . <- NULL
-
+  . <- variable <- var_label <- val_label <- level <- NULL
   ### 경고문 ###
   if (length(formula[[3]]) > 1) stop("Formula must contains only 1 independent variable")
   if (any(class(data) == "survey.design" & !is.null(var_subgroup))) {