[R-br] Simulação de um DQL no R