Я очень рад сказать, что у меня возникла первая проблема с подбрасыванием монеты. Я считаю, сколько раз требуется, чтобы получить все головы или все хвосты в испытании 7 сальто. Теоретически, чтобы получить все головы или все хвосты, потребуется примерно 64 раза.
coin.counter = 0 ## initialize global counting variable
heads.tails = 0 ## initialize global variable
while(heads.tails != 7|0){ ## do while not 7 or 0
heads.tails = rbinom(1,7,.5) ## 1 trial, 7 flips
if(heads.tails != 7|0) ### NOT equal to 0 or 7
coin.counter = coin.counter + 1
else
break
}
К сожалению, я думаю, что получаю только одно значение, потому что, продолжая запускать этот скрипт, я продолжаю получать монеты. значения счетчиков в середине 100-х годов.
Любая критика или пламя приветствуются. Это мой тест на обучение, поэтому помогите мне выучить:)
post edit: Спасибо всем за помощь. Отлично.