Put R code into R script rather Rnw file (left Rnw file there for now)