[R-br] Função usando sample com condição