This is for R code for the ZOL851 class at Michigan State University