From 42324a09641019c3d77322c634bb932519ef5a10 Mon Sep 17 00:00:00 2001
From: Sabine Dritz <70649535+sjdritz@users.noreply.github.com>
Date: Sat, 24 Jun 2023 13:29:58 -0600
Subject: [PATCH] excluding NA (species that do not phonologically overlap)
 from Z_m target

---
 TraitMatching/R/classCommunity.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/TraitMatching/R/classCommunity.R b/TraitMatching/R/classCommunity.R
index 6ac82f1..cd403e0 100644
--- a/TraitMatching/R/classCommunity.R
+++ b/TraitMatching/R/classCommunity.R
@@ -170,7 +170,7 @@ createInter = function(impData, z, log){
       if(inherits(z, "list")) Z <- as.matrix(z[[i]])
       else Z <- as.matrix(z)
 
-      Z_m <- subset(reshape2::melt(Z))
+      Z_m <- subset(reshape2::melt(Z, na.rm = TRUE))
       Z_m <- as.data.frame(Z_m)
       colnames(Z_m) <- c("X","Y")