Script R que cria correlacoes baseadas nas notas das disciplinas modificado