Update calcula_regressao.R