TED 에서 Peter Donnelly의 이야기에서 영감을 받아 일련의 동전 던지기에 특정 패턴이 나타나는 데 걸리는 시간에 대해 이야기합니다. 나는 R에서 다음 스크립트를 만들었습니다. 이 패턴 중 하나에 도달하기까지 평균 시간 (예 : 동전 던지기 횟수)을 계산합니다.
coin <- c('h','t')
hit <- function(seq) {
miss <- TRUE
fail <- 3
trp <- sample(coin,3,replace=T)
while (miss) {
if (all(seq == trp)) {
miss <- FALSE
}
else {
trp <- c(trp[2],trp[3],sample(coin,1,T))
fail <- fail + 1
}
}
return(fail)
}
n <- 5000
trials <- data.frame("hth"=rep(NA,n),"htt"=rep(NA,n))
hth <- c('h','t','h')
htt <- c('h','t','t')
set.seed(4321)
for (i in 1:n) {
trials[i,] <- c(hit(hth),hit(htt))
}
summary(trials)
요약 통계는 다음과 같습니다.
hth htt
Min. : 3.00 Min. : 3.000
1st Qu.: 4.00 1st Qu.: 5.000
Median : 8.00 Median : 7.000
Mean :10.08 Mean : 8.014
3rd Qu.:13.00 3rd Qu.:10.000
Max. :70.00 Max. :42.000
대화에서 평균 동전 던지기 수는 두 패턴에서 다를 것이라고 설명합니다. 내 시뮬레이션에서 볼 수 있듯이. 대화를 몇 번 보았지만 여전히 이것이 왜 그런지 잘 모르겠습니다. 나는 'hth'가 그 자체로 겹치며 직관적으로 나는 당신이 'htt'보다 빨리 'hth'를 칠 것이라고 생각할 것이지만, 그렇지 않습니다. 누군가 나에게 이것을 설명 할 수 있다면 정말 감사하겠습니다.