lintr

easystats · Oct 6, 2024 · 6d9e85a · 6d9e85a
1 parent 9902717
commit 6d9e85a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/methods_fixest.R b/R/methods_fixest.R
@@ -72,14 +72,14 @@ model_parameters.fixest <- function(model,
 standard_error.fixest <- function(model, vcov = NULL, vcov_args = NULL, ...) {
   params <- insight::get_parameters(model)
 
-  if (!is.null(vcov)) {
+  if (is.null(vcov)) {
+    stats <- summary(model)
+    SE <- as.vector(stats$se)
+  } else {
     # we don't want to wrap this in a tryCatch because the `fixest` error is
     # informative when `vcov` is wrong.
     V <- insight::get_varcov(model, vcov = vcov, vcov_args = vcov_args)
     SE <- sqrt(diag(V))
-  } else {
-    stats <- summary(model)
-    SE <- as.vector(stats$se)
   }
 
   .data_frame(

diff --git a/R/utils_model_parameters.R b/R/utils_model_parameters.R
@@ -81,7 +81,7 @@
   if (isTRUE(include_info) && requireNamespace("performance", quietly = TRUE)) {
     rsq <- .safe(suppressWarnings(performance::r2(model)))
     attr(params, "r2") <- rsq
-    rmse <-.safe(performance::performance_rmse(model))
+    rmse <- .safe(performance::performance_rmse(model))
     attr(params, "rmse") <- rmse
   }