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 Próxima revisão | Revisão anterior Próxima revisão Ambos lados da revisão seguinte | ||
cursos:mct:exemplo1b [2011/05/26 23:21] paulojus |
cursos:mct:exemplo1b [2011/05/27 00:29] paulojus |
||
---|---|---|---|
Linha 58: | Linha 58: | ||
Lendo as dados com colunas de tamanho definido | Lendo as dados com colunas de tamanho definido | ||
<code R> | <code R> | ||
- | foo <- read.fwf("dados/exFWF.txt", wid=c(2,3,6,2)) | + | foo <- read.fwf("exFWF.txt", wid=c(2,3,6,2)) |
foo | foo | ||
</code> | </code> | ||
Linha 65: | Linha 65: | ||
Isto permite selecionar somente o que se quer ler. | Isto permite selecionar somente o que se quer ler. | ||
<code R> | <code R> | ||
- | read.fwf("dados/exFWF.txt", wid=c(2,-3,6,2)) | + | read.fwf("exFWF.txt", wid=c(2,-3,6,2)) |
</code> | </code> | ||
Linha 81: | Linha 81: | ||
foo2 <- sapply(foo1, function(x) sum(as.numeric(x))) | foo2 <- sapply(foo1, function(x) sum(as.numeric(x))) | ||
foo2 | foo2 | ||
- | read.fwf("dados/exFWF.txt", wid=foo2) | + | read.fwf("exFWF.txt", wid=foo2) |
</code> | </code> | ||
Linha 113: | Linha 113: | ||
} | } | ||
- | read.meudado("dados/exFWF.txt", formato = DEC) | + | read.meudado("exFWF.txt", formato = DEC) |
</code> | </code> | ||
Linha 141: | Linha 141: | ||
</code> | </code> | ||
- | Lendo com a função, note o uso do mecanismo de ''...'' para passar argumentos para ''read.fwf()'' | + | Lendo com a função, note o uso do mecanismo de '' . . . '' para passar argumentos para ''read.fwf()'' |
<code R> | <code R> | ||
- | read.meudado("dados/exFWF-3.txt", formato = DEC1, skip=2) | + | read.meudado("exFWF-3.txt", formato = DEC1, skip=2) |
</code> | </code> | ||
+ | <fs large>Exemplo dados Regina</fs> | ||
+ | <code R> | ||
+ | ## dados da Regina | ||
+ | desc <- read.table("dados/11CRDDI.ref.txt", as.is=T) | ||
+ | desc | ||
+ | desc$V3 | ||
+ | Regina <- read.meudado("dados/11CRDDI.txt", formato = desc$V3, skip=2, n=20) | ||
+ | Regina | ||
+ | Regina$V29 | ||
+ | as.Date(as.character(Regina$V29), "%Y%m%d") | ||
+ | |||
+ | Regina$V29 <- as.Date(as.character(Regina$V29), "%Y%m%d") | ||
+ | |||
+ | ## ordenando o data-frame por data | ||
+ | Regina <- Regina[order(Regina$V29),] | ||
+ | Regina | ||
+ | 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> | ||