У меня есть код для создания игры, в которой человек бросает кубик 4 раза, и если при броске выпадает 6, он выигрывает. Тем не менее, я запускаю код, но он не выводит результат.
game<-function (n=4){
count=0
ceiling(6*runif(1))
for(i in 1:n){
if(ceiling(6*runif(1))==6){
count=1
}
else(
count=0
)
if(count=1){
print("Win")}
else{
print("Lose")
}
}
}