Added an R markdown document do show what I did to Andrea and Weiling