在 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