Script DIiciplinaAluno.R pronta.