fix

Author: strengejacke

R/get_varcov_fpc.R

@@ -156,7 +156,7 @@ vcovFPC.merMod <- function(
 
   # Cast the resulting matrix to a positive-definite symmetric matrix ("dpoMatrix")
   # to ensure compatibility with downstream methods like vcov()
-  vcov_fixed_effects <- as(vcov_fixed_effects, "dpoMatrix")
+  vcov_fixed_effects <- methods::as(vcov_fixed_effects, "dpoMatrix")
 
   # Assign the original fixed effect parameter names to the rows and columns
   fe_names <- colnames(X)

tests/testthat/test-vcov_fpc.R

@@ -36,7 +36,7 @@ test_that("get_varcov, fpc, mixed", {
     D <- as.matrix(Matrix::Diagonal(nrow(Astar), fpc1) + tcrossprod(Astar))
     Fisher_I <- (crossprod(X) - crossprod(solve(t(chol(D)), Astar_X))) / fpc1
     Phi <- solve(Fisher_I) * sigma(object)^2
-    Phi <- as(Phi, "dpoMatrix")
+    Phi <- methods::as(Phi, "dpoMatrix")
     nmsX <- colnames(X)
     dimnames(Phi) <- list(nmsX, nmsX)
     if (!KR) {