Species data and R Script