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 <[email protected]> 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
> [email protected]
> 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
_______________________________________________
R-br mailing list
[email protected]
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.
