cambio en el codigo R

## He añadico y quitado cosas