alteracoes no script de recomendacao do r para fixacao do bug no retorno