if (FALSE) {
spnames <- c('Quercus robur', 'Iris oratoria', 'Arachis paraguariensis',
'Helianthus annuus','Madia elegans','Lupinus albicaulis',
'Pinus lambertiana')
out <- classification(spnames, db='itis')
tr <- class2tree(out)
plot(tr)
spnames <- c('Klattia flava', 'Trollius sibiricus',
'Arachis paraguariensis',
'Tanacetum boreale', 'Gentiana yakushimensis','Sesamum schinzianum',
'Pilea verrucosa','Tibouchina striphnocalyx','Lycium dasystemum',
'Berkheya echinacea','Androcymbium villosum',
'Helianthus annuus','Madia elegans','Lupinus albicaulis',
'Pinus lambertiana')
out <- classification(spnames, db='ncbi')
tr <- class2tree(out)
plot(tr)
}
Run the code above in your browser using DataLab