<div dir="ltr"><div>Obrigado Benilton</div><div> </div><div>Desculpe tê-lo feito digitar.</div><div> </div><div>Mas eu gostaria que a função me retornasse além do ID do erro de dgitação, mas também os valores discordantes, isso tudo em uma matrix ou um data.frama.</div>
<div> </div><div>Obrigado mais uma vez</div><div> </div><div>Abraços</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 24 de maio de 2013 15:42, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Poxa... um exemplo reproduzivel ajudaria tanto quem tirar o proprio<br>
tempo para poder te ajudar.... (leia-se: se eu tenho q digitar<br>
comandos para ter o seu conjunto de dados de exemplo, entao nao e' um<br>
exemplo reproduzivel.... caso ideal para um consultor, que recebe por<br>
hora trabalhada....)<br>
<br>
df1 = data.frame(ID=1:5, idade=c(15, 20, 18, 19, 20), sexo=c('M', 'M',<br>
'F', 'F', 'M'))<br>
df2 = data.frame(ID=1:5, idade=c(15, 21, 18, 19, 20), sexo=c('M', 'M',<br>
'F', 'M', 'M'))<br>
which(!apply(df1 == df2, 1, all))<br>
<br>
b<br>
<br>
Em 24 de maio de 2013 14:36, Sérgio Henrique almeida da silva ju<br>
<<a href="mailto:sergio.edfisica@gmail.com">sergio.edfisica@gmail.com</a>> escreveu:<br>
<div><div class="h5">> Prezados<br>
><br>
> Alguém tem algum script no R que compara dois bancos de dados, como no data<br>
> compare do epiinfo ou validate do epidata?<br>
><br>
> De qualquer forma eles comparam os dados de dois bancos de dados, contendo<br>
> as mesmas variáveis, mas que foram digitados por pessoas diferentes.<br>
><br>
> Ex.:<br>
><br>
> Digitador 1 (Banco1)<br>
><br>
> ID  idade   sexo<br>
> 1      15       M<br>
> 2      20       M<br>
> 3      18       F<br>
> 4      19       F<br>
> 5      20       M<br>
><br>
> Digitador 2 (Banco2)<br>
><br>
> ID idade sexo<br>
> 1    15     M<br>
> 2    21     M<br>
> 3    18     F<br>
> 4    19     M<br>
> 5     20    M<br>
> Nesse caso houve discordância na digitação no ID 2 e no 4.<br>
><br>
> Gostaria de fazer uma função que me aponte essas discordância, alguém tem<br>
> alguma ideia?<br>
><br>
> Abraços<br>
><br>
><br>
> --<br>
> Sérgio Henrique Almeida da Silva Junior<br>
> Doutorando em Epidemiologia em Saúde Pública<br>
> Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
> <a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a><br>
> Tel: <a href="tel:%2821%29%2068463637" value="+12168463637">(21) 68463637</a><br>
> <a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
><br>
</div></div>> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código<br>
> mínimo reproduzível.<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br><br clear="all"><br>-- <br><div dir="ltr">Sérgio Henrique Almeida da Silva Junior<br>Doutorando em Epidemiologia em Saúde Pública<br>Escola Nacional de Saúde Pública Sérgio Arouca - ENSP/FIOCRUZ<br>
<a href="http://lattes.cnpq.br/1611345552843383" target="_blank">http://lattes.cnpq.br/1611345552843383</a> <br>Tel: (21) 68463637<br><div><a href="http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro" target="_blank">http://www.linkedin.com/profile/view?id=250437145&trk=tab_pro</a><br>
</div></div>
</div>