Update run_analysis.R

Se agrega función de prueba, de abasto.