added an initial batch.rmd and ran knitr in Rstudio to produce html