if (FALSE) {
data(jdsdata)
data(efidata)
#step 1. match and bind datasets if more than one datasets
matchdata <- match_datasets(datasets = list(jds = jdsdata, efi = efidata),
lats = 'lat',
lons = 'lon',
species = c('speciesname','scientificName'),
country=c('JDS4_site_ID'),
date=c('Date', 'sampling_date'))
#clean species names to produce one dataset.
datafull <- check_names(data= matchdata, colsp='species', pct = 90, merge = TRUE)
data2col <- check_names(data = matchdata, colsp='species', pct = 90) #two columns generated
cleansp_name <- check_names(data= 'slamo trutta', pct=90) #wrong names vs FB suggestion
clean_sp_epithet <- check_names(data = 'Salmo trutta fario') #Salmo trutta will be returned
speciesepithet2 <- check_names(data = 'Salmo trutta lacustris', pct=90)
}
Run the code above in your browser using DataLab