У меня есть код для создания игры, в которой человек бросает кубик 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")
}
}
}
Win только в том случае, если последний бросок == 6, когда вы, вероятно, хотите, чтобы у них было четыре изменения для победы. 23.01.2019 Я бы предложил использовать any, чтобы увидеть, равен ли какой-либо бросок 6, а затем использовать return, чтобы сообщить значение.
game <- function(n = 4){
if (any(ceiling(6 * runif(n)) == 6L)){
return("Win")
} else {
return("Lose")
}
}
На самом деле вы можете сделать это намного проще, используя ifelse для векторизации оператора if. Кроме того, вы можете избегать промежуточных переменных (например, count):
game<-function (n=4){
ifelse(6 %in% sample(6, n, replace = TRUE), "Win", "Lose")
}
