[R-br] Simulação de baralho

[Rafael Garcia Cunha]

x <- 1:10                 # vetor com as cartas do baralho
X <- sample(x)         # embaralhando as cartas

verificar <- function(X){
y <- 0
for(i in 1:length(X)){
if(X[i] == x[i]){
y[i] <- 1
}
else{
y[i] <- 0
}
}
return(sum(y))
}

Em 16 de junho de 2011 23:06, Mauro Sznelwar <sznelwar em uol.com.br> escreveu:

>  Como faço a simulação deste problema?
>
> Um baralho possui dez cartas numeradas de 1a 10. Após embaralhadas as cartas
> são viradas uma a uma, deixando aparecer a face com o número.
>
> Nós dizemos que ocorreu uma coincidência se a carta de número i é a i-ésima
> carta a ser virada. Considere a variável aleatória X que conta o número de
> coincidências. Escreva um algoritmo pra gerar de X.
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
YNWA
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110616/bf5b5298/attachment.html>