Added the shiny app(sever.R and ui.r) and the Rstudio presentation