Create aula22.R