R script

run analysis R script