我的 R 代码是否包含错误并回答了问题？

Question

所以我是 R 的真正初学者，但我们被赋予了一项具有挑战性的任务。我做了我能做的，但我不知道如何检查代码是否正确。谁能帮忙告诉我代码是否正确以及如何测试运行我的代码？

这是我的代码：

colorgame = function(games){
  
  money = 0
  
  set.seed(100) # Pseudo-RNG, so we can generate results
  
  for(i in 1:games){
    
    diceRoll = sample(1:6,1) # Represents the 6 different colors
    
  if(diceRoll = 1) {# 1 represents the color the player always bets on
    
      money = money + 100
      
      }else {money = money - 80}
    
    
  } return(money/games)
}

这就是问题：

正在投掷三个颜色的骰子，玩家将投注金钱到 6 种颜色中的一种。如果玩家选择的颜色与已掷出的 3 个骰子的颜色相匹配，则玩家将赢得相同金额、两倍或三倍的下注金额。假设玩家每轮只下注一种颜色。模拟这个游戏并显示玩家最终会输掉他的钱。

Answer 1

您是否在编写 R 代码时没有可用的 R 来测试它？您需要进行三个更正才能使其运行：

• 在if 语句中，使用== 而不是=（== 是逻辑比较，= 是赋值）。
• 在 R 中，您必须使用 } 之后的下一行。您必须在else 和return 之前更改它。但您也可以将这些 {} 留在您的情况下。

colorgame = function(games) {
  money = 0
  set.seed(100) # Pseudo-RNG, so we can generate results
  for(i in 1:games) {
    diceRoll = sample(1:6,1) # Represents the 6 different colors
    if(diceRoll == 1) money = money + 100 # 1 represents the color the player always bets on
    else money = money - 80
  }
  return(money/games)
}