[R-br] aplicando cálculo sobre linhas de um dataframe