<div>Vitor, não sei se vai funcionar... mas não custa tentar... :) </div>
<div> </div>
<div>Supondo que seu data frame se chame "df" mas </div>
<div> </div>
<div>calc <- function(x){<br>x1 <- x[seq(1, length(x)-1, 2)]<br>x2 <- x[seq(2, length(x)  ,  2)]<br>sum(x1-x2 == 0, na.rm=TRUE)<br>}</div>
<p>apply(df, 1, calc)</p>
<p><br><br> </p>
<div class="gmail_quote">Em 18 de maio de 2012 15:28, Sandro Sperandei <span dir="ltr"><<a href="mailto:ssperandei@hotmail.com" target="_blank">ssperandei@hotmail.com</a>></span> escreveu:<br>
<blockquote style="BORDER-LEFT:#ccc 1px solid;MARGIN:0px 0px 0px 0.8ex;PADDING-LEFT:1ex" class="gmail_quote">
<div style="WORD-WRAP:break-word" dir="ltr">
<div dir="ltr">
<div style="FONT-FAMILY:'Calibri';FONT-SIZE:12pt">
<div>Vitor,</div>
<div> </div>
<div>A forma mais simples que posso oferecer, sem conhecer a sua estrutura de dados, é essa:</div>
<div> </div>
<div>soma = as.vector(rep(0,dim(x)[1]))</div>
<div> </div>
<div>for(i in 1:dim(x)[1]){</div>
<div>              for(j in c(seq(1,dim(x)[2]-1,2))){</div>
<div> </div>
<div>                                                soma = soma + ifelse(<a href="http://is.na/" target="_blank">is.na</a>(x[i,j]) | <a href="http://is.na/" target="_blank">is.na</a>(x[i,(j+1)]), 0, ifelse(x[i,j]==x[i,(j+1)], 1, 0))</div>

<div>                                                }</div>
<div>             }</div>
<div> </div>
<div>Onde “x” é a matriz de dados originais</div>
<div> </div>
<div>S</div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div> </div>
<div style="FONT-STYLE:normal;DISPLAY:inline;FONT-FAMILY:'Calibri';FONT-SIZE:small;FONT-WEIGHT:normal;TEXT-DECORATION:none">
<div style="FONT:10pt tahoma">
<div> </div>
<div style="BACKGROUND:#f5f5f5">
<div><b>From:</b> <a title="vitor.aguiar@me.com" href="mailto:vitor.aguiar@me.com" target="_blank">Vitor Aguiar</a> </div>
<div><b>Sent:</b> Friday, May 18, 2012 2:30 PM</div>
<div><b>To:</b> <a title="r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a> </div>
<div><b>Subject:</b> [R-br] aplicando cálculo sobre linhas de um dataframe</div></div></div>
<div> </div></div>
<div style="FONT-STYLE:normal;DISPLAY:inline;FONT-FAMILY:'Calibri';FONT-SIZE:small;FONT-WEIGHT:normal;TEXT-DECORATION:none">
<div>
<div class="h5">Olá. Postei essa pergunta ontem mas não obtive resposta. Desculpe por estar postando novamente. 
<div> </div>
<div>
<div>Tenho um dataframe com milhares de linhas com valores NAs e não-NAs. Suponhamos a seguinte linha:</div>
<div> </div>
<div>1. NA NA NA NA NA NA 6 6 NA NA 8 11 NA NA 17 18 NA NA 10 10 11 13 8 9 11 11 11 11</div>
<div> </div>
<div>Vamos considerar os dados em pares. Assim, meu primeiro par é NA NA, o quarto par é 6 6. Há alguma forma de eu contar quantos pares iguais eu tenho em cada linha do dataframe? Assim, nessa linha por exemplo eu teria o resultado 4, pois tenho 4 pares de valores iguais (6 6, 10 10, 11 11, 11 11).</div>

<div>Então preciso aplicar o cálculo para todas as linhas.</div>
<div> </div>
<div>O caminho seria um loop onde eu contaria <font face="Monaco">dados[i, 1] == dados[i, 2]</font>?</div>
<div> </div>
<div> </div>
<div>Obrigado,</div>
<div>Vitor</div></div></div></div>
<p>
<hr>
_______________________________________________<br>R-br mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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. 
<p></p></p></div></div></div></div><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>Marcos F. Silva<br>
<a href="http://sites.google.com/site/marcosfs2006" target="_blank">http://sites.google.com/site/marcosfs2006</a><br>