añadidos tiempos R