Juego 2

Se lanza un dado equilibrado hasta que se obtiene el 6 dos veces consecutivas. Determinar el número medio de lanzamientos necesarios.

#INICIO -------------------------
rm(list=ls(all=TRUE))
n<-1000 #Número de pruebas
dado<-1:6; f<-function(x) if(x==6) 1 else 0
y<-rep(0,n)
for (i in 1:n){
   j=a=b=0
   while(a+b<2){
 a=b
 m=sample(dado,1,replace=T)
 b=f(m)
 j=j+1
 }
   y[i]=j }
mean(y) #Número medio de lanzamientos
hist(y,col="blue",main="Número de lanzamientos hasta obtener el 6 dos veces consecutivas")
#FIN -------------------------