if (FALSE) {
pigHits <- tableSpecies(xmls, species="Sus scrofa", locations = TRUE)
ssannot <- getAnnotation(species = "Sus scrofa", annotationFolder="/home/user/annotation")
pigInter <- list()
for(i in 1:nrow(pigHits)){
pigInter[[i]] <- intersectXMLAnnot(pigHits[i,], ssannot)
}
}
Run the code above in your browser using DataLab