R code for aerial survey data.