Galera, estou com um banco de dados que tem várias estações, e preciso criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo: ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico")) Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & : substituto tem comprimento zero O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba. Abraços, Victor Eduardo
Qual o problema com esse erro? Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08@gmail.com>escreveu:
Galera, estou com um banco de dados que tem várias estações, e preciso criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo:
ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico"))
Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & : substituto tem comprimento zero
O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba.
Abraços,
Victor Eduardo
No caso, o loop que criei foi esse for (i in stn) { png(paste('figurateste',i,'.png',sep=''),width=1000,height=1000) par(mfrow=c(2,1)) tst <- subset(dados, (dados$fct_mrun==0) & (dados$fct_station_no==i) & (dados$frange ==0) ) attach(tst) tit.obs<- paste("Histograma Estacao:", i, "Observacao") tit.fct<- paste("Histograma Estacao:", i, "prev = ", 0) ifelse(!is.na(tst$obs_clcl),hist(tst$obs_clcl,main=tit.obs),message("sem grafico")) ifelse(!is.na(tst$obs_clcl),hist(tst$fct_clcl,main=tit.fct),message("sem grafico")) dev.off() } Em 25 de maio de 2011 08:37, Victor Eduardo <victorduca08@gmail.com>escreveu:
Qual o problema com esse erro?
Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08@gmail.com>escreveu:
Galera, estou com um banco de dados que tem várias estações, e preciso
criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo:
ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico"))
Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & : substituto tem comprimento zero
O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba.
Abraços,
Victor Eduardo
Ops! Mandei o finalzinho errado, foi esse aqui: for (i in stn) { png(paste('figurateste',i,'.png',sep=''),width=1000,height=1000) par(mfrow=c(2,1)) tst <- subset(dados, (dados$fct_mrun==0) & (dados$fct_station_no==i) & (dados$frange ==0) ) attach(tst) tit.obs<- paste("Histograma Estacao:", i, "Observacao") tit.fct<- paste("Histograma Estacao:", i, "prev = ", 0) ifelse(length(tst$obs_clcl)>=1,hist(tst$obs_clcl,main=tit.obs),message("sem grafico")) ifelse(length(tst$fct_clcl)>=1,hist(tst$fct_clcl,main=tit.fct),message("sem grafico")) dev.off() } Em 25 de maio de 2011 08:49, Victor Eduardo <victorduca08@gmail.com>escreveu:
No caso, o loop que criei foi esse
for (i in stn) { png(paste('figurateste',i,'.png',sep=''),width=1000,height=1000)
par(mfrow=c(2,1)) tst <- subset(dados, (dados$fct_mrun==0) & (dados$fct_station_no==i) & (dados$frange ==0) ) attach(tst)
tit.obs<- paste("Histograma Estacao:", i, "Observacao") tit.fct<- paste("Histograma Estacao:", i, "prev = ", 0) ifelse(!is.na(tst$obs_clcl),hist(tst$obs_clcl,main=tit.obs),message("sem grafico")) ifelse(!is.na(tst$obs_clcl),hist(tst$fct_clcl,main=tit.fct),message("sem grafico")) dev.off() }
Em 25 de maio de 2011 08:37, Victor Eduardo <victorduca08@gmail.com>escreveu:
Qual o problema com esse erro?
Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08@gmail.com>escreveu:
Galera, estou com um banco de dados que tem várias estações, e preciso
criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo:
ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico"))
Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & :
substituto tem comprimento zero
O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba.
Abraços,
Victor Eduardo
Vitor Um pouco dificil falar com isto pois parece um erro interno da funcao hist() talvez em algum valor ela nao esteja recebendo valores para montar o histograma? Se voce imprimir(na tela) dados ou resumo deles para cada valor talvez identifique o problema Voce tem certeza que quer ifelse() e nao if{}else{}? a diferenca é que o primeiro é tipicamente aplicado a cada elemento de um vetor, retornando um valor para cada um deles On Wed, 25 May 2011, Victor Eduardo wrote:
Qual o problema com esse erro?
Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08@gmail.com> escreveu: Galera, estou com um banco de dados que tem várias estações, e preciso criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo:
ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico"))
Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & : substituto tem comprimento zero
O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba.
Abraços,
Victor Eduardo
Entendi! Acho que eu consegui aqui!! Valeu mesmo!! Abraços, Victor Eduardo Em 25 de maio de 2011 16:22, Paulo Justiniano <paulojus@leg.ufpr.br>escreveu:
Vitor
Um pouco dificil falar com isto pois parece um erro interno da funcao hist() talvez em algum valor ela nao esteja recebendo valores para montar o histograma? Se voce imprimir(na tela) dados ou resumo deles para cada valor talvez identifique o problema
Voce tem certeza que quer ifelse() e nao if{}else{}?
a diferenca é que o primeiro é tipicamente aplicado a cada elemento de um vetor, retornando um valor para cada um deles
On Wed, 25 May 2011, Victor Eduardo wrote:
Qual o problema com esse erro?
Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08@gmail.com> escreveu: Galera, estou com um banco de dados que tem várias estações, e preciso criar histograma para cada estação, então criei um loop para criar histograma para cada estacao, sendo que algumas estações que eu pego da o seguinte erro quando eu uso o comando abaixo:
ifelse(length(na.omit(obs_clcl))>=1,hist(obs_clcl,main=tit.obs),message("sem grafico"))
Erro em ans[!test & !nas] <- rep(no, length.out = length(ans))[!test & : substituto tem comprimento zero
O grande problema é que o loop trava quando aparece esse erro e simplesmente acaba.
Abraços,
Victor Eduardo
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
participantes (2)
-
Paulo Justiniano -
Victor Eduardo