Create script.R

Initial commit. This script runs on R GUI and creates the objects used by the knitr document and the Shiny app.