lintr

easystats · Oct 4, 2023 · 96a544a · 96a544a
1 parent f195fed
commit 96a544a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/r2.R b/R/r2.R
@@ -748,10 +748,10 @@ r2.mmclogit <- function(model, ...) {
 
 #' @export
 r2.Arima <- function(model, ...) {
-  if (!requireNamespace("forecast", quietly = TRUE)) {
-    list(R2 = NA)
-  } else {
+  if (requireNamespace("forecast", quietly = TRUE)) {
     list(R2 = stats::cor(stats::fitted(model), insight::get_data(model, verbose = FALSE))^2)
+  } else {
+    list(R2 = NA)
   }
 }