Mercurial > repos > dfornika > mentalist

changeset 59:dddb1dc9c42e draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/WGS-TB/MentaLiST/tree/master/galaxy commit 45fb0ab372efd4b1f9265a23dac4d48c89675473
author dfornika
date Wed, 06 Jun 2018 19:10:47 -0400
parents 97c29398c1c5
children d36f7f883a30
files tools/mentalist_tree/mentalist_tree
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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')
 }