fix issue #88

daijiang · Jul 7, 2023 · 3b49dda · 3b49dda
1 parent a033093
commit 3b49dda
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/pglmm_compare.R b/R/pglmm_compare.R
@@ -286,7 +286,7 @@ pglmm_compare <- function(formula, family = "gaussian",
 
   if(any(sp != phy$tip.label)){
     warning("\nThe data rows are resorted to match phy$tip.label")
-    data <- data[match(sp, phy$tip.label),]
+    data <- data[match(phy$tip.label, sp),]
   }
 
   Vphy <- ape::vcv(phy)