在 R 中創建隨機數模擬

Question

我想在ze1e1d3d40573127e9ee0480caf1283d6z中創建一個隨機模擬，其中一個人可以在0：500之間選擇一個整數，然后我將sample（）隨機使用Z99938282F04040404040718599941E.18F16EF133333333333333333330.人 A 選擇的數字與生成的隨機數之間的差異，反之亦然。

例如，如果人 A 選擇了 5，而隨機數生成器選擇了 25，那么人 A 必須支付給我 $(25 - 5)^2 = $400。 如果 A 選擇 25 並且隨機數生成器顯示為 10，那么 A 將支付給我 $(25 - 10)^2 = $225。 除非他/她完全猜到了我的號碼，否則 A 總是需要付費。

possible.numbers <- 0:500
chosen.numbers <- 0:500

generated.number <- 
  sample(possible.numbers, 1, replace = TRUE)   

expected.payment <- (generated.number - 30)^2  #assuming I chose $30

print(expected.payment)

我認為我的代碼不正確，任何幫助將不勝感激，在此先感謝！

Answer 1

我不確定您是說要指定選擇的數字還是隨機抽樣“選擇的”數字。 無論如何，下面的 function 應該允許您同時執行這兩項操作 - 如果您想讓 function 為您“選擇”所選數字，請留空，或者有人可以指定要“選擇”的數字。

set.seed(123)

example_function <- function(chosen = NULL, possible_numbers = 0:500){
  if(is.null(chosen)){
    chose <- sample(possible_numbers, 1)
  } else {
    chose <- chosen
  }
  random <- sample(possible_numbers, 1)
  payment <- (random - chose) ^ 2
  return(c(chosen = chose, random = random, payment = payment))
}

輸出：

example_function()
# > example_function()
# chosen  random payment 
# 414     462    2304 

example_function(chosen = 2)
# > example_function(chosen = 2)
# chosen  random payment 
# 2     178   30976