First Draft

First Draft after updating Rstudio to fix problems