From 8edb851a42764f51cfd33e8f0a301935eddaa52a Mon Sep 17 00:00:00 2001 From: ian Date: Mon, 6 Jun 2022 09:14:22 +0200 Subject: [PATCH] logit when percents TRUE --- R/logit.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/logit.R b/R/logit.R index ccb2de7..dc60d49 100644 --- a/R/logit.R +++ b/R/logit.R @@ -8,7 +8,7 @@ logit <- function(p, percents, adjust){ if (missing(percents) && range.p[2] > 1){ percents <- TRUE message("Note: largest value of p > 1 so values of p interpreted as percents") - } else { + } else if (missing(percents) %% range.p[2] <= 1) { percents <- FALSE } if (percents){