Mejoras a leccion 6.4-if-else.R