In case of dist object for site cov

daijiang · Feb 21, 2024 · 33f1938 · 33f1938
1 parent 3b49dda
commit 33f1938
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -34,7 +34,7 @@ Imports:
     latticeExtra,
     tidyr
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 LinkingTo:
     Rcpp, RcppArmadillo
 Suggests: 

diff --git a/R/pglmm-utils.R b/R/pglmm-utils.R
@@ -32,6 +32,8 @@ parse_conv_ranef = function(x, df){
       Vphy = Vphy[spl, spl] # same order as species levels
     }
 
+    if(inherits(xx, "dist")) xx = as.matrix(xx)
+
     if(inherits(xx, c("matrix", "Matrix"))){
       # already a cov matrix
       if(length(setdiff(spl, row.names(xx))))