more work on species.R