Add speciesImage.R script