run_analsis.R: added output