falta fazer testes com r