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 Última revisão Ambos lados da revisão seguinte | ||
cursos:mct:exemplo1b [2011/05/27 00:29] paulojus |
cursos:mct:exemplo1b [2011/05/27 19:14] paulojus |
||
---|---|---|---|
Linha 147: | Linha 147: | ||
</code> | </code> | ||
- | <fs large>Exemplo dados Regina</fs> | + | ===== Um pequeno exemplo de análises automáticas ===== |
- | <code R> | + | Suponha que voce tem um diretório (pasta) com alguns arquivos que devem ser lidos e processados por análises\\ |
- | ## dados da Regina | + | |
- | desc <- read.table("dados/11CRDDI.ref.txt", as.is=T) | + | Vamos supor aqui o diretório ''Regina'' com arquivos com o seguinte conteúdo que supomos ser o mês e a despesa:\\ |
- | desc | + | <code> |
- | desc$V3 | + | dir.create("Regina") |
+ | cat( | ||
+ | "12 23,10 \n", | ||
+ | "12 20,70 \n", | ||
+ | "10 12,10 \n", | ||
+ | "10 8,13 \n", | ||
+ | file = "Regina/arq1.txt") | ||
- | Regina <- read.meudado("dados/11CRDDI.txt", formato = desc$V3, skip=2, n=20) | + | cat( |
- | Regina | + | "09 33,10 \n", |
+ | "09 50,70 \n", | ||
+ | "10 22,10 \n", | ||
+ | "10 18,13 \n", | ||
+ | file = "Regina/arq2.txt") | ||
+ | </code> | ||
- | Regina$V29 | + | Para cada um dos arquivos queremos:\\ |
- | as.Date(as.character(Regina$V29), "%Y%m%d") | + | (i) ler os dados, (ii) calcular a despesa total por mês, (iii) colocar os resultados em uma página ''html''. |
- | Regina$V29 <- as.Date(as.character(Regina$V29), "%Y%m%d") | + | <code R> |
+ | arquivos <- dir("Regina", full.names=T) | ||
+ | arquivos | ||
- | ## ordenando o data-frame por data | + | names(arquivos) <- c("MCT", "MEC") |
- | Regina <- Regina[order(Regina$V29),] | + | arquivos |
- | Regina | + | |
- | aggregate(V7+V8+V9 ~ V29, FUN=sum, data=Regina) | + | |
- | ## algumas manipulacoes | + | resumo1 <- function(x){ |
- | Regina[,c(7,8,9,29)] | + | gastos <- read.table(x, dec=",", head=F) |
+ | names(gastos) <- c("Mes", "Despesa") | ||
+ | totM <- aggregate(Despesa ~ Mes, FUN = sum, data=gastos) | ||
+ | return(totM) | ||
+ | } | ||
- | aggregate(. ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | + | res <- lapply(arquivos, resumo1) |
- | aggregate(V7+V8 ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | + | res |
- | aggregate(cbind(V7,V8) ~ V29, data=Regina[,c(7,8,9,29)], FUN=sum) | + | |
+ | require(R2HTML) | ||
+ | saida <- HTMLInitFile("./",filename="regina", BackGroundColor="#BBBBEE") | ||
+ | HTML.title("Exemplo simples de automatizacao de analise", file=saida) | ||
+ | HTML("<br>Use um arquivo CSS para configurar a pagina!!!",file=saida) | ||
+ | lapply(res, HTML, file=saida) | ||
+ | HTMLEndFile() | ||
</code> | </code> | ||
+ | |||
+ | |||
+ | |||
+ | |||
+ | |||