R code for aerial survey data