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@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@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