Added R file for rough sketch of shiny app