# HG changeset patch
# User dfornika
# Date 1528326647 14400
# Node ID dddb1dc9c42ef03b089b5fe0717edf7b84fe13a8
# Parent  97c29398c1c57ce4ddf269f2f3f13da500592605
planemo upload for repository https://github.com/WGS-TB/MentaLiST/tree/master/galaxy commit 45fb0ab372efd4b1f9265a23dac4d48c89675473

diff -r 97c29398c1c5 -r dddb1dc9c42e tools/mentalist_tree/mentalist_tree
--- a/tools/mentalist_tree/mentalist_tree	Wed Jun 06 13:27:36 2018 -0400
+++ b/tools/mentalist_tree/mentalist_tree	Wed Jun 06 19:10:47 2018 -0400
@@ -13,9 +13,9 @@
   }
   suppressMessages(library(phangorn))
   
-  distance_matrix <- read.csv(args[1], row.names=1, sep="\t")
-  upgma_tree <- upgma(distance_matrix)
-  newick_tree <- write.tree(upgma_tree)
+  distance_matrix <- as.matrix(read.csv(args[1], row.names=1, sep="\t"))
+  nj_tree <- NJ(distance_matrix)
+  newick_tree <- write.tree(nj_tree)
   cat(newick_tree, '\n')
 }