[R-br] Ajuda com erro em Loop

Victor Eduardo victorduca08 em gmail.com
Quarta Maio 25 08:49:06 BRT 2011


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/4a38999a/attachment.html>


Mais detalhes sobre a lista de discussão R-br