Usando el comando mean(X) después del codigo anterior obtenemos la estimación del tiempo medio de supervivencia: