[Splm-commits] r242 - pkg/R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Tue Jul 26 09:12:13 CEST 2022
Author: the_sculler
Date: 2022-07-26 09:12:13 +0200 (Tue, 26 Jul 2022)
New Revision: 242
Modified:
pkg/R/sarem2REmod.R
pkg/R/sarem2srREmod.R
pkg/R/saremREmod.R
pkg/R/saremmod.R
pkg/R/saremsrREmod.R
pkg/R/saremsrmod.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:
Fixed 'inherits()' in the error handler for singular Hessians
Modified: pkg/R/sarem2REmod.R
===================================================================
--- pkg/R/sarem2REmod.R 2022-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/sarem2REmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/sarem2srREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/saremREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/saremmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/saremsrREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "try-error")) {
covTheta <- matrix(NA, ncol=nvcovpms+1,
nrow=nvcovpms+1)
warning("Hessian matrix is not invertible")
Modified: pkg/R/saremsrmod.R
===================================================================
--- pkg/R/saremsrmod.R 2022-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/saremsrmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -195,7 +195,7 @@
nvcovpms <- length(nam.errcomp) - 1
## error handler here for singular Hessian cases
covTheta <- try(solve(-myHessian), silent=TRUE)
- if(class(covTheta)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/sem2REmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/sem2srREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/semREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/semmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/semsrREmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -197,7 +197,7 @@
nvcovpms <- length(nam.errcomp)
## error handler here for singular Hessian cases
covTheta <- try(solve(-myHessian), silent=TRUE)
- if(class(covTheta)[1] == "try-error") {
+ if(inherits(covTheta, "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-07-24 11:04:05 UTC (rev 241)
+++ pkg/R/semsrmod.R 2022-07-26 07:12:13 UTC (rev 242)
@@ -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)[1] == "try-error") {
+ if(inherits(covTheta, "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