R code created for my classes at JHSPU & MIT