run-analysis.R code