data(DNA.fasta)
speciesNames <- names(DNA.fasta)
#Taxonomic name checking by iPlant TNRS
## Not run: TNRSspeciesNames <- ResolveNames(speciesNames, 100, verbose=F)
#Taxonomic name checking by Phylotastic Taxosaurus
token <- GetPhylotasticToken(speciesNames)
TNRSSpeciesNames <- RetrieveTNRSNames(speciesNames, token, "NCBI")
CompareNames(speciesNames, TNRSSpeciesNames, verbose=TRUE)
Run the code above in your browser using DataLab