[R-br] Operação em data.frame com colunas 'numeric'