<div dir="ltr">Olás, Roney e Éder,<div><br></div><div><br></div><div>Caso o banco de dados seja grande, um procedimento com um loop (for) pode acabar demorando. Aqui embaixo segue um código, apenas com atribuições simples (menos "elegante"...), mas que pode funcionar mais rápido,</div>

<div><br></div><div><br></div><div>abraços,</div><div>Rogério</div><div> </div><div><br></div><div><br></div><div>##################################################</div><div><br></div><div><br></div><div><div># Número de relações dentro do próprio grupo</div>

<div>data$rel.grupo =NA</div><div>data$rel.grupo[data$pessoa.grupo == 1]=data$g.1[data$pessoa.grupo == 1]</div><div>data$rel.grupo[data$pessoa.grupo == 2]=data$g.2[data$pessoa.grupo == 2]</div><div>data$rel.grupo[data$pessoa.grupo == 3]=data$g.3[data$pessoa.grupo == 3]</div>

<div>data$rel.grupo[data$pessoa.grupo == 4]=data$g.4[data$pessoa.grupo == 4]</div><div><br></div><div># Calculo da proporção de relações dentro do próprio grupo</div><div>data$prop.rel.grupo = data$rel.grupo/rowSums(data[,3:6], na.rm = TRUE, dims = 1)</div>

<div><br></div><div># Média de relações (desconsiderando o valor zero)</div><div>data$rel.media = rowSums(data[,3:6], na.rm = TRUE)/rowSums(data[,3:6]>0)</div><div>  </div></div><div>data #resultado</div></div><div class="gmail_extra">

<br><br><div class="gmail_quote">2013/8/27 Roney Fraga Souza <span dir="ltr"><<a href="mailto:roneyfraga@gmail.com" target="_blank">roneyfraga@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

<div style="word-wrap:break-word"><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif">Éder Comunello, </span><div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif"><br>

</span></div><div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif">Muito, muito obrigado! Estava empacado nesse cálculo.</span></div><span class="HOEnZb"><font color="#888888"><div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif"><br>

</span></div><div><span style="font-size:13px;font-family:Verdana,Geneva,Helvetica,Arial,sans-serif">Roney</span></div></font></span></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></div>