# NOT RUN {
clean <- data.frame(species = letters[1:10],
decimallongitude = runif(100, -180, 180),
decimallatitude = runif(100, -90,90),
dataset = "clean")
#biased dataset
bias.long <- c(round(runif(min = -42, max = -40, n = 500), 1),
round(runif(min = -42, max = -40, n = 300), 0),
runif(min = -42, max = -40, n = 200))
bias.lat <- c(round(runif(min = -12, max = -10, n = 500), 1),
round(runif(min = -12, max = -10, n = 300), 0),
runif(min = -12, max = -10, n = 200))
bias <- data.frame(species = letters[1:10],
decimallongitude = bias.long,
decimallatitude = bias.lat,
dataset = "rounded")
test <- rbind(clean, bias)
# }
# NOT RUN {
#run CleanCoordinatesDS
flags <- CleanCoordinatesDS(test)
#check problems
#clean
hist(test[test$dataset == rownames(flags[flags$summary,]), "decimallongitude"])
#biased
hist(test[test$dataset == rownames(flags[!flags$summary,]), "decimallongitude"])
# }
Run the code above in your browser using DataLab