Correccion del error con la variable R