[Splm-commits] r214 - in pkg: . R

[noreply at r-forge.r-project.org]

Author: the_sculler
Date: 2017-05-11 15:52:01 +0200 (Thu, 11 May 2017)
New Revision: 214

Modified:
   pkg/ChangeLog
   pkg/DESCRIPTION
   pkg/R/slag.R
Log:
Moved '...' argument in slagres.R from mat2listw to lag.listw


Modified: pkg/ChangeLog
===================================================================
--- pkg/ChangeLog	2017-03-29 19:17:37 UTC (rev 213)
+++ pkg/ChangeLog	2017-05-11 13:52:01 UTC (rev 214)
@@ -1,3 +1,6 @@
+Changes in Version 1.4-7
+ o Moved '...' argument in slagres.R from mat2listw to lag.listw
+
 Changes in Version 1.4-6
  o Added slmtest() for the (locally robust) LM test of spatial lag sub spatial error or spatial error sub spatial lag; with methods for formula and plm.
 

Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2017-03-29 19:17:37 UTC (rev 213)
+++ pkg/DESCRIPTION	2017-05-11 13:52:01 UTC (rev 214)
@@ -1,7 +1,7 @@
 Package: splm
 Title: Econometric Models for Spatial Panel Data
-Version: 1.4-6
-Date: 2016-11-22
+Version: 1.4-7
+Date: 2017-05-11
 Authors at R: c(person(given = "Giovanni", family = "Millo", role = c("aut", "cre"), email = "giovanni.millo at generali.com"),
              person(given = "Gianfranco", family = "Piras", role = c("aut"), email = "gpiras at mac.com"))
 Author: Giovanni Millo [aut, cre],

Modified: pkg/R/slag.R
===================================================================
--- pkg/R/slag.R	2017-03-29 19:17:37 UTC (rev 213)
+++ pkg/R/slag.R	2017-05-11 13:52:01 UTC (rev 214)
@@ -31,7 +31,7 @@
     ## all calculations done inside here
     ## check and if necessary transform
     if(class(listw)[1]=="matrix") {
-        listw <- mat2listw(listw, ...)
+        listw <- mat2listw(listw)
     }
     ## if maxlag>1 then make higher-order W
     if(maxlag>1) {
@@ -47,7 +47,7 @@
     for(t. in 1:length(tunind)) {
         tpos <- tind==tunind[t.]
         xt <- x[tpos]
-        wxt <- lag.listw(listw, xt)
+        wxt <- lag.listw(listw, xt, ...)
         wx[tpos] <- wxt
     }
     return(wx)