Update aula4.R