É só trocar o nome das variaveis (na verdade nem precisava trocar, era só adicionar x<-n-1 no final)...<div><br></div><div><div>## Gera 'batata' até que a soma seja 1.5</div><div>batata <- runif(2) </div><div>
batata</div><div>n<- 1</div><div>while (sum(batata) < 1.5) { batata <- runif(2) ; n <- n+1 }</div><div>batata</div><div>x<-n-1</div><br><div class="gmail_quote">2011/8/23 Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><u></u>
<div bgcolor="#ffffff">
<div><font face="Arial" color="#0000ff">Muito obrigado pela dica. Mas como fica o
faça X=N-1</font></div>
<blockquote style="padding-right:0px;padding-left:5px;margin-left:5px;border-left:#000000 2px solid;margin-right:0px"><div><div></div><div class="h5">
<div style="font:10pt arial"> </div>
<div style="font:10pt arial"> </div>
<div style="font:10pt arial"> </div>
<div style="font:10pt arial">for não é para isso, da uma olhada no
while</div>
<div><br></div>
<div>Exemplo basico:</div>
<div><br></div>
<div>
<div>
<div>## Gera X até que a soma deles seja 1.5</div>
<div>x <- runif(2) </div>
<div>x</div>
<div>n<- 1</div>
<div>while (sum(x) < 1.5) { x <- runif(2) ; n <- n+1 }</div>
<div>x</div>
<div>n # numero de tentativas</div></div></div>
<div><br></div>
<div>
<div><br></div>
<div><br>
<div class="gmail_quote">2011/8/23 Crysttian Arantes <span dir="ltr"><<a href="mailto:crysttian@gmail.com" target="_blank">crysttian@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="padding-left:1ex;margin:0px 0px 0px 0.8ex;border-left:#ccc 1px solid">Olá,<br><br>O
problema está na funcao runif(0).<br><br>O zero indica que o numero de
valores uniformes que ele tem que gerar é zero, coloca
1.<br><br>runif(1): gera 1 valor<br>runif(2): gera 2 valores
<br><br>Entendeu:<br><br>Até<br><br><br><br clear="all">Crysttian Arantes
Paixão<br>Universidade Federal de Lavras - UFLA<br>Cel: <a href="tel:35%208876-9187" value="+553588769187" target="_blank">35
8876-9187</a> (Oi)<br> <a href="tel:35%209189-7272" value="+553591897272" target="_blank">35
9189-7272</a> (Tim)<br>Linux User: 456734 - Debian<br><br>“Se fiz
descobertas valiosas, foi mais por ter paciência do que qualquer outro
talento.” [Isaac Newton]<br><br><font face="Arial, Helvetica, sans-serif" size="2">"Otimismo é esperar pelo melhor. Confiança é saber lidar com o
pior." [Roberto Simonsen]<br><br></font><font face="Arial, Helvetica, sans-serif" size="2">"Mesmo as noites totalmente sem
estrelas podem anunciar a aurora de uma grande realização." [Martin Luther
King]<br><br></font><br><font face="Arial, Helvetica, sans-serif" size="2"><br></font><br><br><br>
<div class="gmail_quote">Em 23 de agosto de 2011 22:59, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br" target="_blank">sznelwar@uol.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="padding-left:1ex;margin:0pt 0pt 0pt 0.8ex;border-left:rgb(204,204,204) 1px solid">
<div>
<div></div>
<div><u></u>
<div bgcolor="#ffffff">
<div><font face="Arial">
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">Tenho este
algoritmo<u></u><u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">p=1, N=0,
c=e^-lambda<u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">Repita
<u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2"><span> </span>N=N+1<u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">gere
Ui<u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">atualize
p<c.e^-lambda<u></u><u></u></font></span></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt;text-align:justify"><span style="font-size:12pt"><font size="2">Faça
X=N-1<u></u><u></u></font></span></p></font></div>
<div><font face="Arial"></font> </div>
<div><font face="Arial">Estou fazendo esta rotina abaixo, mas o resultado
não está consistente! Qual o melhor jeito?</font></div>
<div><font face="Arial" size="2"><font size="3">p=1<br>n=0<br>lambda=2<br>c=exp(-lambda)<br> for(n in 1:100){
<br> u=runif(n)<br> p=p*u<br>p<c <br>}<br>x=n-1</font><br> </font></div></div><br></div></div>_______________________________________________<br>R-br
mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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><br>_______________________________________________<br>R-br
mailing list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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></div>
</div></div><p>
</p><hr><div class="im">
<p></p>_______________________________________________<br>R-br mailing
list<br><a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.</div><p></p></blockquote></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>