is.numeric could never occur; !grepl not !grep (#103)

leeper · Jan 22, 2019 · 548943c · 548943c
1 parent de56121
commit 548943c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/confint.R b/R/confint.R
@@ -8,8 +8,8 @@ function(object, parm, level = 0.95, ...) {
         parm <- pnames
     } else if (is.numeric(parm))  {
         parm <- pnames[parm]
-    } else if (is.numeric(parm)) {
-        parm[!grep("^_", parm)] <- paste0("_", parm[!grep("^_", parm)])
+    } else if (is.character(parm)) {
+        parm[!grepl("^_", parm)] <- paste0("_", parm[!grepl("^_", parm)])
     }
     cf <- colMeans(mes, na.rm = TRUE)[parm]
     a <- (1 - level)/2