Updated MLPE function

wpeterman · Nov 2, 2017 · 0269dfc · 0269dfc
1 parent 33b51a4
commit 0269dfc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/MLPE.R b/R/MLPE.R
@@ -195,7 +195,7 @@ MLPE.lmm_coef <-
         gsub(pattern = "_distMat.csv",
              "",
              x = list.files(resistance, pattern = "*_distMat.csv"))
-      resist.names <- plyr::ldply(strsplit(resist.names, "_"))[,1]
+      resist.names <- plyr::ldply(strsplit(resist.names, "_c"))[,1]
 
       COEF.Table <- array()
       for (i in 1:length(resist.mat)) {