obitools/ROBIBarcodes
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Patch the resolution function

Browse Source
This commit is contained in:
Eric Coissac
2016-05-20 19:42:12 +02:00
parent 9e33d6a180
commit 27b72df0d1
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -1 +1,2 @@
/man/ /man/
.Rproj.user

4
R/resolution.R
View File

@@ -7,8 +7,8 @@ NULL
resolution = function(taxonomy,ecopcr) { resolution = function(taxonomy,ecopcr) {
l = aggregate(ecopcr$taxid, l = aggregate(ecopcr$taxid,
by=list(barcode=ecopcr$sequence), by=list(barcode=ecopcr$sequence),
function(x) lowest.common.ancestor(taxo,x)) function(x) lowest.common.ancestor(taxonomy,x))
r = taxonomicrank(taxo,l$x) r = taxonomicrank(taxonomy,l$x)
names(r)=as.character(l$barcode) names(r)=as.character(l$barcode)
return(r[as.character(ecopcr$sequence)]) return(r[as.character(ecopcr$sequence)])