WedX - журнал о программировании и компьютерных науках

Попытка создать игру в кости в R, но функция не работает

У меня есть код для создания игры, в которой человек бросает кубик 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")
  }
  }
}


r
23.01.2019

  • Вам не хватает == в if(count==1) 23.01.2019
  • Также обратите внимание на то, как это работает в настоящее время: вы вернете Win только в том случае, если последний бросок == 6, когда вы, вероятно, хотите, чтобы у них было четыре изменения для победы. 23.01.2019

Ответы:


1

Я бы предложил использовать any, чтобы увидеть, равен ли какой-либо бросок 6, а затем использовать return, чтобы сообщить значение.

game <- function(n = 4){
  if (any(ceiling(6 * runif(n)) == 6L)){
    return("Win")
  } else {
    return("Lose")
  }
}
23.01.2019

2

На самом деле вы можете сделать это намного проще, используя ifelse для векторизации оператора if. Кроме того, вы можете избегать промежуточных переменных (например, count):

game<-function (n=4){
  ifelse(6 %in% sample(6, n, replace = TRUE), "Win", "Lose")
}
23.01.2019
Новые материалы

Как создать диаграмму градиентной кисти с помощью D3.js
Резюме: Из этого туториала Вы узнаете, как добавить градиентную кисть к диаграмме с областями в D3.js. Мы добавим градиент к значениям SVG и применим градиент в качестве заливки к диаграмме с..

Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что это выглядит сложно…
Просто начните и учитесь самостоятельно Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что он кажется мне сложным, и я бросил его. Это в основном инструмент..

Лицензии с открытым исходным кодом: руководство для разработчиков и создателей
В динамичном мире разработки программного обеспечения открытый исходный код стал мощной парадигмой, способствующей сотрудничеству, инновациям и прогрессу, движимому сообществом. В основе..

Объяснение документов 02: BERT
BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..

Как проанализировать работу вашего классификатора?
Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..

Работа с цепями Маркова, часть 4 (Машинное обучение)
Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..

Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..


Для любых предложений по сайту: [email protected]