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/26 23:21] paulojus |
cursos:mct:exemplo1b [2011/05/27 19:14] 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> | ||
+ | |||
+ | ===== Um pequeno exemplo de análises automáticas ===== | ||
+ | |||
+ | Suponha que voce tem um diretório (pasta) com alguns arquivos que devem ser lidos e processados por análises\\ | ||
+ | |||
+ | Vamos supor aqui o diretório ''Regina'' com arquivos com o seguinte conteúdo que supomos ser o mês e a despesa:\\ | ||
+ | <code> | ||
+ | dir.create("Regina") | ||
+ | cat( | ||
+ | "12 23,10 \n", | ||
+ | "12 20,70 \n", | ||
+ | "10 12,10 \n", | ||
+ | "10 8,13 \n", | ||
+ | file = "Regina/arq1.txt") | ||
+ | |||
+ | cat( | ||
+ | "09 33,10 \n", | ||
+ | "09 50,70 \n", | ||
+ | "10 22,10 \n", | ||
+ | "10 18,13 \n", | ||
+ | file = "Regina/arq2.txt") | ||
+ | </code> | ||
+ | |||
+ | Para cada um dos arquivos queremos:\\ | ||
+ | (i) ler os dados, (ii) calcular a despesa total por mês, (iii) colocar os resultados em uma página ''html''. | ||
+ | |||
+ | <code R> | ||
+ | arquivos <- dir("Regina", full.names=T) | ||
+ | arquivos | ||
+ | |||
+ | names(arquivos) <- c("MCT", "MEC") | ||
+ | arquivos | ||
+ | |||
+ | resumo1 <- function(x){ | ||
+ | gastos <- read.table(x, dec=",", head=F) | ||
+ | names(gastos) <- c("Mes", "Despesa") | ||
+ | totM <- aggregate(Despesa ~ Mes, FUN = sum, data=gastos) | ||
+ | return(totM) | ||
+ | } | ||
+ | |||
+ | res <- lapply(arquivos, resumo1) | ||
+ | res | ||
+ | |||
+ | 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> | ||