<div dir="ltr"><div>Roney, bom dia!</div><div><br></div><div>Não deve ser a melhor forma, mas o código abaixo pode ser um começo...</div><div><br></div><div><br></div><div><font face="courier new, monospace"># <BEGIN></font></div>
<div><font face="courier new, monospace">#install.packages('repmis') </font></div><div><font face="courier new, monospace">library(repmis) </font></div><div><font face="courier new, monospace">FinURL <- paste0("<a href="https://dl.dropboxusercontent.com/u/61883020/2013-08-25-r-br.csv">https://dl.dropboxusercontent.com/u/61883020/2013-08-25-r-br.csv</a>") </font></div>
<div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">data <- repmis::source_data(FinURL, sep = ",", header = TRUE) </font></div><div><font face="courier new, monospace"><br>
</font></div><div><font face="courier new, monospace">dim(data); head(data)</font></div><div><font face="courier new, monospace"><br></font></div><div><font face="courier new, monospace">data$new   = 0; data$prop  = 0; data$medlnk= 0</font></div>
<div><font face="courier new, monospace">str(data)</font></div><div><font face="courier new, monospace">for (i in 1:length(data[,1])){  # para cada linha</font></div><div><font face="courier new, monospace">          col    = data[i,2]+2  # coluna do grupo dado</font></div>
<div><font face="courier new, monospace">          dado   = data[i,col]  # dado para a coluna calculada</font></div><div><font face="courier new, monospace">          nlink  = length(data[1,3:6]>0) # núm de grupos com valor (ligações)</font></div>
<div><font face="courier new, monospace">          data[i,8]  = dado     # aloja o dado</font></div><div><font face="courier new, monospace">          data[i,9]  = dado/(data[i,7]-dado) # total - dado do grupo</font></div>
<div><font face="courier new, monospace">          data[i,10] = data[i,7]/nlink       # total/núm ligações</font></div><div><font face="courier new, monospace">}</font></div><div><font face="courier new, monospace">head(data)</font></div>
<div><font face="courier new, monospace">#<END></font></div><div><br></div><div><br></div><div><div><font face="courier new, monospace">> head(data)</font></div><div><font face="courier new, monospace">  pessoa pessoa.grupo g.1 g.2  g.3 g.4   tc  new      prop medlnk</font></div>
<div><font face="courier new, monospace">1      a            3 360 913 1407 674 3354 1407 0.7226502 838.50</font></div><div><font face="courier new, monospace">2      b            2 235 693  588 384 1900  693 0.5741508 475.00</font></div>
<div><font face="courier new, monospace">3      c            4 355 435  285 524 1599  524 0.4874419 399.75</font></div><div><font face="courier new, monospace">4      e            3  37 129  258  80  504  258 1.0487805 126.00</font></div>
<div><font face="courier new, monospace">5      f            1 317  40   14  95  466  317 2.1275168 116.50</font></div><div><font face="courier new, monospace">6      g            2  17 216   88  27  348  216 1.6363636  87.00</font></div>
</div><div><br></div><div class="gmail_extra"><div><br></div>-- <br><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>
Dourados, MS - [22 16.5'S, 54 49'W]<br></div>
</div></div>