Aula prática 4 - Scripts R (atualizado)