correct #19 weights test

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: spatialreg
-Version: 1.2-9
-Date: 2023-05-25
+Version: 1.2-10
+Date: 2023-07-12
 Title: Spatial Regression Analysis
 Encoding: UTF-8
 Authors@R: c(person("Roger", "Bivand", role = c("cre", "aut"), email = "[email protected]", comment=c(ORCID="0000-0003-2392-6140")),

NEWS.md

@@ -1,4 +1,8 @@
-# Version 1.2-9 (development)
+# Version 1.2-10 (development)
+
+* corrected #19 because the fitted model weights component is never NULL, but may have a single unique value
+
+# Version 1.2-9 (2023-05-25)
 
 * raised #39, no support for weights in SEM/SDEM/SLX #39
 

R/spautolm.R

@@ -379,7 +379,7 @@ print.summary.Spautolm <- function(x, digits = max(5, .Options$digits - 3),
 		format(signif(sqrt(x$fit$s2), digits)), ")\n", sep="")
 	cat("Number of observations:", x$fit$N, "\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)), "\n", sep="")
 	} else {
 	    cat("AIC: NA (not available for weighted model)\n", sep="")