Não foi possível enviar o arquivo. Será algum problema com as permissões?
Diferenças
Aqui você vê as diferenças entre duas revisões dessa página.
Ambos lados da revisão anterior Revisão anterior | |||
cursos:mct:exemplo1b [2011/05/27 19:14] paulojus |
cursos:mct:exemplo1b [2011/05/27 19:18] (atual) paulojus |
||
---|---|---|---|
Linha 146: | Linha 146: | ||
read.meudado("exFWF-3.txt", formato = DEC1, skip=2) | read.meudado("exFWF-3.txt", formato = DEC1, skip=2) | ||
</code> | </code> | ||
+ | |||
+ | ===== Dados reais da Regina ===== | ||
+ | Lendo arquivo descritor | ||
+ | <code R> | ||
+ | desc <- read.table("dados/11CRDDI.ref.txt", as.is=T) | ||
+ | desc | ||
+ | desc$V3 | ||
+ | |||
+ | desc$V4 <- ifelse(desc$V2 == "A", "character", "integer") | ||
+ | desc | ||
+ | desc$V4[grep("\\,", desc$V3)] <- "numeric" | ||
+ | desc | ||
+ | </code> | ||
+ | |||
+ | Lendo os dados usando nossa função. | ||
+ | <code R> | ||
+ | Regina <- read.meudado("dados/11CRDDI.txt", formato = desc$V3, as.is=T ) | ||
+ | #, skip=2, n=20) | ||
+ | Regina | ||
+ | |||
+ | ## algumas operacoes uteis: | ||
+ | which(grepl("\\,", desc$V3)) | ||
+ | which(desc$V4=="integer") | ||
+ | which(grepl("CREDITO", desc$V1)) | ||
+ | Regina[,which(grepl("CREDITO", desc$V1))] | ||
+ | apply(Regina[,which(grepl("CREDITO", desc$V1))], 1, sum) | ||
+ | |||
+ | ## colocar aqui os nome dasd variaveis trabalhado/cortado etc | ||
+ | #names(Regina) <- desc$V1 | ||
+ | |||
+ | Regina$V29 | ||
+ | as.Date(as.character(Regina$V29), "%Y%m%d") | ||
+ | |||
+ | Regina$V29 <- as.Date(as.character(Regina$V29), "%Y%m%d") | ||
+ | |||
+ | Regina <- read.meudado("dados/11CRDDI.txt", formato = desc$V3, as.is=T, skip=2, n=15) | ||
+ | Regina | ||
+ | </code> | ||
+ | |||
+ | Queremos ordenar os dados por data. Antes uma revisão sobre ordenação. | ||
+ | <code R> | ||
+ | x <- rpois(10, lam=10) | ||
+ | x | ||
+ | sort(x) | ||
+ | order(x) | ||
+ | x[order(x)] | ||
+ | x[rev(order(x))] | ||
+ | args(order) | ||
+ | order(x, decreasing=T) | ||
+ | </code> | ||
+ | |||
+ | Agora de volta aos dados | ||
+ | <code R> | ||
+ | Regina <- Regina[order(Regina$V29),] | ||
+ | Regina | ||
+ | Regina[, c("V7","V8","V9","V29")] | ||
+ | aggregate(V7+V8+V9 ~ V29, FUN=sum, data=Regina) | ||
+ | |||
+ | ## algumas manipulacoes | ||
+ | Regina[,c(7,8,9,29)] | ||
+ | |||
+ | aggregate(. ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | ||
+ | aggregate(V7+V8 ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | ||
+ | aggregate(cbind(V7,V8) ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | ||
+ | </code> | ||
+ | |||
===== Um pequeno exemplo de análises automáticas ===== | ===== Um pequeno exemplo de análises automáticas ===== |