run analysis R code