[R-br] Ajuda com erro em Loop

[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 em 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 em gmail.com>escreveu:
>
> Qual o problema com esse erro?
>>
>> Em 24 de maio de 2011 16:04, Victor Eduardo <victorduca08 em 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
>>>
>>
>>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110525/dad78e5e/attachment.html>