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

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Jul 12 18:29:26 CEST 2022


Author: the_sculler
Date: 2022-07-12 18:29:26 +0200 (Tue, 12 Jul 2022)
New Revision: 236

Modified:
   pkg/DESCRIPTION
   pkg/R/sarem2REmod.R
   pkg/R/sarem2srREmod.R
   pkg/R/saremREmod.R
   pkg/R/saremmod.R
   pkg/R/saremsrREmod.R
   pkg/R/sem2REmod.R
   pkg/R/sem2srREmod.R
   pkg/R/semREmod.R
   pkg/R/semmod.R
   pkg/R/semsrREmod.R
   pkg/R/semsrmod.R
Log:


Modified: pkg/DESCRIPTION
===================================================================
--- pkg/DESCRIPTION	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/DESCRIPTION	2022-07-12 16:29:26 UTC (rev 236)
@@ -1,7 +1,7 @@
 Package: splm
 Title: Econometric Models for Spatial Panel Data
-Version: 1.5-3
-Date: 2022-01-07
+Version: 1.5-4
+Date: 2022-07-12
 Authors at R: c(person(given = "Giovanni", family = "Millo", role = c("aut", "cre"), email = "giovanni.millo at deams.units.it"),
              person(given = "Gianfranco", family = "Piras", role = c("aut"), email = "gpiras at mac.com"),
              person("Roger", "Bivand", role = c("ctb"), email = "Roger.Bivand at nhh.no", comment=c(ORCID="0000-0003-2392-6140")))

Modified: pkg/R/sarem2REmod.R
===================================================================
--- pkg/R/sarem2REmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/sarem2REmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -188,7 +188,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/sarem2srREmod.R
===================================================================
--- pkg/R/sarem2srREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/sarem2srREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -209,7 +209,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/saremREmod.R
===================================================================
--- pkg/R/saremREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/saremREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -193,7 +193,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/saremmod.R
===================================================================
--- pkg/R/saremmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/saremmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -175,7 +175,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/saremsrREmod.R
===================================================================
--- pkg/R/saremsrREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/saremsrREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -221,7 +221,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/sem2REmod.R
===================================================================
--- pkg/R/sem2REmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/sem2REmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -165,7 +165,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/sem2srREmod.R
===================================================================
--- pkg/R/sem2srREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/sem2srREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -185,7 +185,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/semREmod.R
===================================================================
--- pkg/R/semREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/semREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -166,7 +166,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/semmod.R
===================================================================
--- pkg/R/semmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/semmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -147,7 +147,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/semsrREmod.R
===================================================================
--- pkg/R/semsrREmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/semsrREmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -197,7 +197,7 @@
     nvcovpms <- length(nam.errcomp)
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms,
                            nrow=nvcovpms)
         warning("Hessian matrix is not invertible")

Modified: pkg/R/semsrmod.R
===================================================================
--- pkg/R/semsrmod.R	2022-05-03 08:11:12 UTC (rev 235)
+++ pkg/R/semsrmod.R	2022-07-12 16:29:26 UTC (rev 236)
@@ -169,7 +169,7 @@
     nvcovpms <- length(nam.errcomp) - 1
     ## error handler here for singular Hessian cases
     covTheta <- try(solve(-myHessian), silent=TRUE)
-    if(class(covTheta) == "try-error") {
+    if(class(covTheta)[1] == "try-error") {
         covTheta <- matrix(NA, ncol=nvcovpms+1,
                            nrow=nvcovpms+1)
         warning("Hessian matrix is not invertible")



More information about the Splm-commits mailing list