Create run_analysi.R

My prog