# NOT RUN {
data(seagull_data)
## Create a vector with group sizes:
sizes <- rep(as.integer(NA), max(groups))
for (i in 1:98) {
sizes[i] = max(which(groups==i)) - min(which(groups==i)) + 1
}
## Plot the sorted group sizes:
plot(x = seq(1, max(groups), 1), y = sort(sizes))
# }
Run the code above in your browser using DataLab