Remember to

  • Load surveys.csv data into surveys
group_by(surveys, species_id)
surveys_by_species <- group_by(surveys, species_id)
summarize(surveys_by_species, abundance = n())
species_weight <- summarize(surveys_by_species, avg_weight = mean(weight))

Null values

surveys_by_species <- filter(surveys_by_species, !is.na(weight))
species_weight <- summarize(surveys_by_species, avg_weight = mean(weight))
sp_weight_nonull <- na.omit(species_weight)

Do Shrub Volume Aggregation.