<div>x <- 1:10                 # vetor com as cartas do baralho</div><div>X <- sample(x)         # embaralhando as cartas</div><div><br></div><div>verificar <- function(X){</div><div><span class="Apple-tab-span" style="white-space:pre">     </span>y <- 0</div>
<div><span class="Apple-tab-span" style="white-space:pre">      </span>for(i in 1:length(X)){</div><div><span class="Apple-tab-span" style="white-space:pre">               </span>if(X[i] == x[i]){</div><div><span class="Apple-tab-span" style="white-space:pre">                    </span>y[i] <- 1</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">            </span>else{</div><div><span class="Apple-tab-span" style="white-space:pre">                        </span>y[i] <- 0</div>
<div><span class="Apple-tab-span" style="white-space:pre">              </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>}</div><div><span class="Apple-tab-span" style="white-space:pre">    </span>return(sum(y))</div>
<div>}</div><br><div class="gmail_quote">Em 16 de junho de 2011 23:06, Mauro Sznelwar <span dir="ltr"><<a href="mailto:sznelwar@uol.com.br">sznelwar@uol.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">






<div bgcolor="#ffffff">
<div><font size="2">
<p class="MsoNormal" style="margin:0cm 0cm 0pt" align="justify"><font face="Arial" color="#0000ff" size="3">Como faço a simulação deste problema?</font></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt" align="justify"><font face="Arial"><font color="#0000ff"><font size="3">Um baralho possui dez cartas 
numeradas de 1a 10. Após embaralhadas as </font><font size="3">cartas são viradas 
uma a uma, deixando aparecer a face com o número.</font></font></font></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt" align="justify"><font face="Arial" color="#0000ff" size="3"></font></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt" align="justify"><font face="Arial"><font color="#0000ff"><font size="3">Nós dizemos que ocorreu uma 
coincidência se a carta de número i é a i-</font><font size="3">ésima carta a ser 
virada. Considere a variável aleatória X que conta o </font><font size="3">número 
de coincidências. Escreva um algoritmo pra gerar de X.</font></font></font></p>
<p class="MsoNormal" style="margin:0cm 0cm 0pt"><font face="Arial"></font></p></font></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><br clear="all"><br>-- <br>YNWA<br>
<br>