[R-br] Selecionar variáveis conforme linhas

[Éder Comunello]

Roney, bom dia!

Não deve ser a melhor forma, mas o código abaixo pode ser um começo...


# <BEGIN>
#install.packages('repmis')
library(repmis)
FinURL <- paste0("
https://dl.dropboxusercontent.com/u/61883020/2013-08-25-r-br.csv")

data <- repmis::source_data(FinURL, sep = ",", header = TRUE)

dim(data); head(data)

data$new   = 0; data$prop  = 0; data$medlnk= 0
str(data)
for (i in 1:length(data[,1])){  # para cada linha
          col    = data[i,2]+2  # coluna do grupo dado
          dado   = data[i,col]  # dado para a coluna calculada
          nlink  = length(data[1,3:6]>0) # núm de grupos com valor
(ligações)
          data[i,8]  = dado     # aloja o dado
          data[i,9]  = dado/(data[i,7]-dado) # total - dado do grupo
          data[i,10] = data[i,7]/nlink       # total/núm ligações
}
head(data)
#<END>


> head(data)
  pessoa pessoa.grupo g.1 g.2  g.3 g.4   tc  new      prop medlnk
1      a            3 360 913 1407 674 3354 1407 0.7226502 838.50
2      b            2 235 693  588 384 1900  693 0.5741508 475.00
3      c            4 355 435  285 524 1599  524 0.4874419 399.75
4      e            3  37 129  258  80  504  258 1.0487805 126.00
5      f            1 317  40   14  95  466  317 2.1275168 116.50
6      g            2  17 216   88  27  348  216 1.6363636  87.00


-- 
Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130827/64bf367c/attachment.html>