correct #19 weights test

r-spatial · Jul 12, 2023 · 8655723 · 8655723
1 parent 070f90e
commit 8655723
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/sarlm_functions.R b/R/sarlm_functions.R
@@ -249,7 +249,7 @@ print.summary.Sarlm <- function(x, digits = max(5, .Options$digits - 3),
             format(signif(x$NK, digits)), "\n")
 	cat("Number of observations:", length(x$residuals), "\n")
 	cat("Number of parameters estimated:", x$parameters, "\n")
-	if (is.null(x$weights)) {
+	if (length(unique(x$weights)) == 1L) {
 	    cat("AIC: ", format(signif(AIC(x), digits)), ", (AIC for lm: ",
 		format(signif(x$AIC_lm.model, digits)), ")\n", sep="")
 	} else {