added anolis R script