R code bio503

code from bio503 harvard