Commit 27b72df0 by Eric Coissac

Patch the resolution function

parent 9e33d6a1
Pipeline #1 skipped
......@@ -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)])
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment