cambio en el codigo R

He añadico y quitado cosas
Merge pull request #2 from mlopezm/desarrollo

cambio en el codigo R que ahora si acepto