Patch the resolution function

2016-05-20 19:42:12 +02:00
parent 9e33d6a180
commit 27b72df0d1
2 changed files with 3 additions and 2 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 /man/
+.Rproj.user
--- a/R/resolution.R
+++ b/R/resolution.R
@@ -7,8 +7,8 @@ NULL
 resolution = function(taxonomy,ecopcr) {
  l = aggregate(ecopcr$taxid,
                by=list(barcode=ecopcr$sequence),
-                function(x) lowest.common.ancestor(taxo,x))
-  r = taxonomicrank(taxo,l$x)
+                function(x) lowest.common.ancestor(taxonomy,x))
+  r = taxonomicrank(taxonomy,l$x)
  names(r)=as.character(l$barcode)
  
  return(r[as.character(ecopcr$sequence)])