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