[R-br] Separação de dados em classes usando if e ifelse