birds <- read.csv('bird-comm.csv') # Load the bird data
env <-  read.csv('env-var.csv')# Load the environmental data
