# NOT RUN {
#1 Utilisation distributions of flatback turtles.
data(curtis)
#2 Calculate collective areas from 1000 random permutation
area <- boot_area(curtis, R = 1000, percent = 50)
#3 Find the minimum sample size required to estimate the general distribution.
a <- asymptote(area)
#4 Plot the mean collective area and rational function fit relative to the sample sizes.
ggplot(data = area$summary)+
geom_point(aes(x = N, y = mu/1e+6), alpha = 0.5) +
geom_path(data = a$results, aes(x = x, y = ys/1e+6)) +
labs(x = "N", y = expression(Area~(km^2)))
# }
Run the code above in your browser using DataLab