
3 Ago
2011
3 Ago
'11
23:52
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)