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