Browse code

fix class check not valid with R 4.0.0

hcorrada authored on 17/03/2020 17:42:20
Showing 1 changed files

... ...
@@ -258,7 +258,7 @@ calcStandardError<-function(mod,fitln,fitzero,coef=2,exclude=NULL){
258 258
       p0 <- t(exp(theta0) / (1+exp(theta0)))
259 259
 
260 260
       checkInverse <- function(m){
261
-        class(try(qr.solve(m),silent=T))=="matrix"
261
+        inherits(try(qr.solve(m),silent=T), "matrix")
262 262
       }
263 263
       
264 264
       Dp2 <- diag(length(p))*as.vector(p*(1-p))