## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab