[R-br] Converter informações de linhas duplicadas em colunas

[Benilton Carvalho]

deixo p voce renomear as colunas de acordo.

note que os dados "de verdade" sao apenas as colunas 1-6.

no meu codigo, combinei 101 e 201 todos sob 999...

eventualmente,  "alguem" dara uma solucao q mto provavelmente usara o
plyr, mas  enqto isso....


inv <- inv[, 1:6]
inv[inv[['veiculo']] %in% c(101, 201), 'veiculo'] <- 999
tmp <- reshape(inv, idvar=c('seq', 'dv', 'dom'), direction='wide',
timevar='veiculo')
qtdes <- tmp[, grep('^qtde', names(tmp), value=TRUE)]
qtdes[is.na(qtdes)] <- 0
anos <- tmp[, grep('^ano', names(tmp), value=TRUE)]
anom <- as.integer(rowSums(qtdes*anos, na.rm=T)/rowSums(qtdes, na.rm=T))
resultado <- cbind(tmp[,1:3], qtdes, anom)