lintr

easystats · Oct 24, 2023 · 544a963 · 544a963
1 parent 07892c2
commit 544a963
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/methods_plm.R b/R/methods_plm.R
@@ -135,10 +135,10 @@ standard_error.pgmm <- function(model, component = c("conditional", "all"), ...)
 
 #' @export
 ci.pgmm <- function(x, ci = 0.95, dof = Inf, method = NULL, component = "conditional", ...) {
-  if (!is.null(method)) {
-    method <- tolower(method)
-  } else {
+  if (is.null(method)) {
     method <- "wald"
+  } else {
+    method <- tolower(method)
   }
 
   .ci_generic(model = x, ci = ci, dof = dof, method = method, component = component)