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