estima_rt function

RT: Número efectivo de reproducción