check_epithets_match: Check if Epithets match.

In emilio-berti/taxclean: Clean taxonomy using regex, taxize, and rgbif

Description

Check if the epithets can considered to be matching each others according to Meyers et al. (2016). See also Jin & Yang (2020).

Usage

check_epithets_match(dist, epithets = NULL)

Arguments

dist	data.frame with orthographic distances as returned from
epithets	(optional) data.frame with epithets. Is NULL, row numbers of matching epithets are returned. orthographic_distance().

Value

a data.frame with epithets, distance, and if can be considered matching. If epithets = NULL, this returns only a vector with the row numbers of matchin epithets.

Examples

x <- sapply(1:5000, function(x) paste(sample(letters[1:10], 5), collapse = ""))
y <- sapply(1:5000, function(x) paste(sample(letters[1:10], 5), collapse = ""))
dist <- orthographic_dist(x, y, parallel = TRUE)
matches <- check_epithets_match(dist, data.frame(x, y))
matches[matches$matching, ]

emilio-berti/taxclean documentation built on May 30, 2021, 5:19 p.m.