data(bryophytes)
# Species names in full
r1 <- TPL(bryophytes$Full.name[1:20], corr=TRUE)
str(r1)
# A separate specification for genera, specific, and infraspecific epithets
r2 <- TPL(genus = bryophytes$Genus, species = bryophytes$Species,
infrasp = bryophytes$Intraspecific, corr=TRUE)
str(r2)
####################################
### An example using data from GBIF
####################################
require(dismo)
# Download data containing all records available in GBIF of all species
# within genus Oreopanax (GBIF table)
oreopanax <- gbif("Oreopanax", "*", geo=T)
# But a list of species can be also downloaded from GBIF for a defined geographical area
# Names downloaded from GBIF often include the authority.
# The column names need to be split using the spaces as the split.
# This will result in multiple columns. We essentially only need the first two columns.
sp.list <- do.call("rbind", strsplit(oreopanax$species, split=" "))
sp.list <- as.factor(paste(sp.list[,1], sp.list[,2]))
# Perform taxonomic standardisation on plant names list (TPL table)
sp.check <- TPL(levels(sp.list), infra=FALSE, corr=TRUE)
head(sp.check)
# Bind GBIF table with TPL table
oreopanax$id <- as.numeric(sp.list)
sp.check$id <- 1:dim(sp.check)[1]
oreopanax.check <- merge(oreopanax, sp.check, by="id", all=T)
Run the code above in your browser using DataLab