¿Cómo realizar el ANOVA de una vía en R?

Veamos paso a paso un ejemplo muy simpático para aprender a realizar el ANOVA de una vía con el Software R. ¿El consumo de alcohol nos vuelve menos selectivos?