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 Ambos lados da revisão seguinte | ||
|
cursos:mct:exemplo1b [2011/05/26 23:24] paulojus |
cursos:mct:exemplo1b [2011/05/27 00:29] paulojus |
||
|---|---|---|---|
| Linha 145: | Linha 145: | ||
| <code R> | <code R> | ||
| read.meudado("exFWF-3.txt", formato = DEC1, skip=2) | read.meudado("exFWF-3.txt", formato = DEC1, skip=2) | ||
| + | </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> | </code> | ||
