From 1f768610679a9ecf0af886dcf770e19a240ca3d1 Mon Sep 17 00:00:00 2001 From: unknown Date: Mon, 23 Sep 2024 23:56:12 +0200 Subject: [PATCH] debug to_be_tested --- R/flipscores.R | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/R/flipscores.R b/R/flipscores.R index 2c96ec8..04b5e79 100644 --- a/R/flipscores.R +++ b/R/flipscores.R @@ -155,9 +155,8 @@ flipscores<-function(formula, family, data, if(is.null(to_be_tested)) to_be_tested=colnames(model[["x"]]) else { - to_be_tested = ifelse(is.numeric(to_be_tested), - colnames(model[["x"]])[to_be_tested], - to_be_tested) + if(is.numeric(to_be_tested)) + to_be_tested = colnames(model[["x"]])[to_be_tested] to_be_tested=eval(to_be_tested,parent.frame()) }