Programa 1 de l'asignament 3.
best.R