Só transformar a tua variavel<div><br></div><div>y<- x*6/24 + 10/24</div><div>times(y)</div><div><br></div><div><br><div class="gmail_quote">2011/6/22 Rafael Garcia Cunha <span dir="ltr"><<a href="mailto:rafareds@gmail.com">rafareds@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Boa noite!<div><br><div>Estou com um problema e gostaria de saber se algum de vocês poderia me ajudar.</div><div><br></div>
<div>Estou gerando um Processo de Poisson não homogêneo com valores compreendidos entre 0 e 1.</div>
<div>A ideia é que estou pensando em um banco e o 0 representa 10:00 h e o 1 representa 16:00 h.</div><div>Gero os valores de 0 até 1 [que representam os instantes de ocorrências do processo de Poisson] e aplico a função "times" do pacote "chron" para que transforme esses valores em horas. Só que as horas geradas estão compreendidas ao longo de um dia, de 00:00 h até 23:59.</div>

<div>Alguém sabe alguma maneira de colocar algo como "from = 10:00:00 to = 16:00:00" no pacote chron? Ou alguma outra maneira que eu possa resolver esse problema?</div><div><br></div><div>Atenciosamente,</div><div>

<br></div><div>Rafael Cunha</div><div><br></div><div><div># lambda(t) = 12 - t , 0 <= t <= 1</div><div># max(lambda) = 12</div><div><br></div><div>library(chron)</div><div><br></div><div>proc.5 <- function(T = 1){</div>

<div><span style="white-space:pre-wrap">  </span>t <- 0</div><div><span style="white-space:pre-wrap">        </span>I <- 0</div><div><span style="white-space:pre-wrap">        </span>S <- 0</div>
<div><span style="white-space:pre-wrap">  </span>U <- runif(1)</div><div><span style="white-space:pre-wrap"> </span>while(t < T){</div><div><span style="white-space:pre-wrap">         </span>t <- t - 1/12*log(U)</div>
<div><span style="white-space:pre-wrap">          </span>V <- runif(1)</div><div><span style="white-space:pre-wrap">         </span>if(V <= 12 - t){</div><div><span style="white-space:pre-wrap">                      </span>I <- I + 1</div>
<div><span style="white-space:pre-wrap">                  </span>S[I] <- t</div><div><span style="white-space:pre-wrap">             </span>}</div><div><span style="white-space:pre-wrap">        </span>}</div>
<div><span style="white-space:pre-wrap">  </span>return(S[-length(S)])</div><div>} </div><div><br></div><div>x <- proc.5()</div><div>times(x)</div><br>-- <br>YNWA<br><br>
</div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>