23/03/02 21:30:17.28 OFv6qc2r0.net
sim=\(){
d=rbinom(1,1,1/6)
count=1
while(d!=1){
count=count+1
d=rbinom(1,1,1/6)
}
count
}
k=1e5
y=replicate(k,sim())
mean(y)
var(y)
which.max(table(y)) |> names() |> noquote()
23/03/02 21:30:17.28 OFv6qc2r0.net
sim=\(){
d=rbinom(1,1,1/6)
count=1
while(d!=1){
count=count+1
d=rbinom(1,1,1/6)
}
count
}
k=1e5
y=replicate(k,sim())
mean(y)
var(y)
which.max(table(y)) |> names() |> noquote()