Added scripts for doing analysis in R