# \donttest{
#simulate data
occ <- data.frame(species = rep(sample(x = LETTERS, size = 5), times = 10),
decimalLongitude = runif(n = 50, min = 12, max = 20),
decimalLatitude = runif(n = 50, min = -4, max = 4))
out <- calculate_bias(x = occ, terrestrial = TRUE)
proj <- project_bias(out)
# }
Run the code above in your browser using DataLab