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@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]