Janeiro 2013 - R-br

Otimização de código
by Leandro Marino 17 Jan '13

17 Jan '13

Caros, tudo bem? Estou com um código que gostaria de otimizar. Notem que faço um for para fazer tabulações simples. Como posso otimizar este código? Tenho que realizar 3k~4k tabelas... temp <- list() for(i in 1:20){ temp[[i]] <- data.frame(matrix(ncol=3,nrow=100)) colnames(temp[[i]]) <- c('ID','Tipo','Valor') temp[[i]]$ID <- paste(i,sprintf("%03d",1:100),sep='') temp[[i]]$Tipo <- factor(sample(0:10,100,replace=T),levels=c(0:10)) temp[[i]]$Valor <- rnorm(100,100,20) } dado <- data.frame(matrix(ncol=13,nrow=20)) colnames(dado) <- c('ID',paste('Tipo',sprintf('%02d',0:10),sep=''),'TipoNA') for(i in 1:20){ dado[i,] <- c(i,table(temp[[i]]$Tipo,exclude=NULL)) } Pensei algo com do.call ou sapply, mas não sei como definir apenas uma coluna... Abraços, Leandro

4 5

Pacote no R
by Ari Clecius 17 Jan '13

17 Jan '13

Boa tarde, alguém conhece algum pacote no R para modelagem de colunas de adsorção por elementos finitos? Att, Ari Clecius Alves de Lima Engenheiro Químico Me. Engenharia Civil (085)87687786 (085)33669042

1 0

substituir caracteres especiais de strings
by Paulo Nogueira 17 Jan '13

17 Jan '13

Olá a todos. Estou com um problema simples que não consigo resolver de maneira prática. Dado um vetor com nomes de bairos: 1- transformar os caracteres especiais ç, ã, õ, ü, etc, em caracteres normais c, a, o, u, etc; 2- substituir eventuais espaços entre nomes compostos por hífen; 3- transformar todas as letras para caracteres minúsculos Eu sei resolver 2 e 3, mas empaquei no item número 1. Como resolver de forma direta, sem utilizar gsub várias vezes? Como CMR, tenho o seguinte vetor de exemplo: c("Santa Cecília", "Anhangüera", "Freguesia Do Ó") E preciso que o resultado seja: santa-cecilia anhanguera freguesia-do-o Desde já agradeço a ajuda, Abraços, Paulo Nogueira Starzynski

3 3

Como calcular o p-valor...
by andrebvs＠bol.com.br 17 Jan '13

17 Jan '13

4 6

Fwd:
by bruno vidigal 17 Jan '13

17 Jan '13

http://www.arsnota.it/xqvrzo.php

3 2

Leitura e Gravação de Imagens usando URL
by Henrique Leme Felizatti 16 Jan '13

16 Jan '13

Caros, bom dia. Alguém poderia me ajudar a carregar uma imagem jpg/png/gif usando url e depois salvá-la em disco ? Também gostaria de sugestões de pacotes ou funções para processar essas imagens. Um exemplo de URL seria url <- "http://img0.cptec.inpe.br/~rclima/historicos/mensal/brasil/jan/abrchuvat011…" e o arquivo de saida poderia ser arquivo <- "C:\\Projetos\\TesteR\\pluviometria.gif" Grato desde já. Henrique Leme Felizatti

2 2

Re: [R-br] Junção de dados no mclapply
by Junior Beleti 15 Jan '13

15 Jan '13

Desculpa Benilton, mas seria esse o código completo: grid <- expand.grid(i=1:ncol(m2), j=1:nrow(m1)) ## versao 1 f <- function(idx) m1[grid[idx, 2],] %*% m2[, grid[idx, 1]] matrix(unlist(mclapply(1:nrow(grid), f)), nc=ncol(m2), byrow=T) ## versao 2 g <- function(idx){ aux = 0 X = m1[grid[idx, 2], ] Y = m2[, grid[idx, 1]] for (i in 1:length(X)) aux = aux + X[i]*Y[i] aux } matrix(unlist(mclapply(1:nrow(grid), g)), nc=ncol(m2), byrow=TRUE) Obrigado, Junior.

2 3

Escrevendo linhas
by Fátima Lima Paula 14 Jan '13

14 Jan '13

Prezados, preciso escrever 1353 linhas do formato abaixo, colocando entre aspas os nomes de uma lista. cadaum=subset(dados1,nome=="AIDA PEREIRA") Consegui fazer apenas uma parte, dessa forma: for(i in lista) { writeLines(strwrap(paste("cadaum=subset(dados1,nome==",i))) } Exemplo lista=c("jose","pedro","maria","teresa","Rosa") for(i in lista) { writeLines(strwrap(paste("cadaum=subset(dados1,nome==",i))) } cadaum=subset(dados1,nome== jose cadaum=subset(dados1,nome== pedro cadaum=subset(dados1,nome== maria cadaum=subset(dados1,nome== teresa cadaum=subset(dados1,nome== Rosa Como podem ver, está faltando as aspas e o parêntese do final. Só consegui chegar até aí porque vi um exemplo parecido ao que eu quero no google, é claro. Alguém saberia como faço isso? Caso contrário terei que completar com aspas e parêntese as 1353 linhas. Obrigada Fátima

2 2

Suprimir labels do eixo de X.
by Alessandro Corrêa 13 Jan '13

13 Jan '13

Prezados, Gostaria de gerar uma curva normal sem os valores do eixo de X. Consegui um resultado satisfatório da seguinte maneira (col.axis="white",tck=0) : ---------------------------- x <- seq(-3, 3, by=0.1) fx<-dnorm(x,mean=0,sd=1) plot(x, fx, col.axis="white",tck=0, main="",xlab="",ylab="",type="l",yaxt="n", col="blue",lwd=2,frame.plot=FALSE, ) ------------------------------ Haveria alguma maneira mais eficiente e elegante de suprimir os valores do eixo de X, que não tornando a suas cores brancas? Já tentei exis(labels=FALSE) , mas não está dando certo. Obrigado, Alessandro

2 1

Exclusão de linha e reordenar as posições
by Fátima Lima Paula 13 Jan '13

13 Jan '13

Caros, quando eu excluo uma linha o número dela some, como no exemplo abaixo. No banco 2 ficam as linhas 1,3,5, e 6. Como fazer para isso não acontecer? Para que no banco2 passe a ser 1,2,3,4 nome=c("Ricardo","Maria","Tereza","Pedro","José", "Germano") sobrenome=c("Cunha","Andrade","Silva","Soares","Silva","Lima") idade=c(68,67,89,78,65,67) ano=c(1944,1945,1923,1934,1947,1945) dataint=c(20121004,20120907,20120703,20120301,20120805,20121209) banco1=cbind(nome,sobrenome,idade,ano,dataint) banco1=data.frame(banco1) banco1 nome sobrenome idade ano dataint 1 Ricardo Cunha 68 1944 20121004 2 Maria Andrade 67 1945 20120907 3 Tereza Silva 89 1923 20120703 4 Pedro Soares 78 1934 20120301 5 José Silva 65 1947 20120805 6 Germano Lima 67 1945 20121209 > banco2=banco1[-c(2,4),] > banco2 nome sobrenome idade ano dataint 1 Ricardo Cunha 68 1944 20121004 3 Tereza Silva 89 1923 20120703 5 José Silva 65 1947 20120805 6 Germano Lima 67 1945 20121209 Obrigada Fátima

2 2