update to SlX object call

Author: rsbivand

R/lm.RStests.R

@@ -94,10 +94,19 @@ lm.RStests <- function(model, listw, zero.policy=attr(listw, "zero.policy"), tes
 		    warning("Out-of-range p-value: reconsider test arguments")
 		names(p.value) <- ""
 		method <- "Rao's score (a.k.a Lagrange multiplier) diagnostics for spatial dependence"
-		data.name <- paste("\n", paste(strwrap(paste("model: ",
-		    gsub("[ ]+", " ", paste(deparse(model$call), 
-		    sep="", collapse="")))), collapse="\n"),
-    	            "\nweights: ", listw_name, "\n", sep="")
+                fmla <- gsub("[ ]+", " ", paste(deparse(model$call), sep="",
+                    collapse=""))
+                if (GNM) {
+                    if (!is.null(attr(model, "SLX_call"))) {
+                        fmla <- paste("lm(", attr(model, "SLX_call"), ")", sep="")
+                    } else {
+                        fmla <- gsub("[ ]+", " ", paste(deparse(model$terms),
+                            sep="", collapse=""))
+                    }
+                }
+		data.name <- paste("\n", paste(strwrap(paste("model: ", fmla)),
+                    collapse="\n"),
+    	            "\ntest weights: ", listw_name, "\n", sep="")
 		tres[[i]] <- list(statistic=statistic, parameter=parameter,
 			p.value=p.value, method=method, data.name=data.name)
 		class(tres[[i]]) <- "htest"

man/SD.RStests.Rd

@@ -31,7 +31,7 @@ A list of class \code{LMtestlist} of \code{htest} objects, each with:
   \item{data.name}{a character string giving the name(s) of the data.}
 }
 \references{
-Malabika Koley and Anil K. Bera (2024) To use, or not to use the spatial Durbin model? – that is the question, Spatial Economic Analysis, 19:1, 30-56, \doi{10.1080/17421772.2023.2256810}; Malabika Koley (2024) Specification Testing under General Nesting Spatial Model, \url{https://sites.google.com/view/malabikakoley/research}.
+Malabika Koley and Anil K. Bera (2024) To use, or not to use the spatial Durbin model? – that is the question, Spatial Economic Analysis, 19:1, 30-56, \doi{10.1080/17421772.2023.2256810}; Malabika Koley (2024) Specification Testing under General Nesting Spatial Model (Appendix C), \url{https://sites.google.com/view/malabikakoley/research}.
 }
 \author{Roger Bivand \email{Roger.Bivand@nhh.no}, Malabika Koley and Anil K. Bera}
 \note{