构建功能辅助：使用R从自定义卡片组创建概率分布

编程问答 2022-11-05

问题描述

我正试图找到一种建立概率分布的方法，以了解我将在起手牌中获得什么样的牌。

# Sample pokemon deck
card_type <- c("ENERGY","POKEMON","TRAINER")
Hand <- replicate(7,sample(card_type,size = 10,replace = TRUE))
table(Hand)

这通常可以正常工作，但是我试图找到一种方法来创建一个功能，使该功能对于自定义卡座更有用。 想法是，用户可以在其牌组中输入能量卡，口袋妖怪卡和教练卡的数量。我创建了此函数，但鉴于输出，我认为它不正确

# Function testing
testf <- function(x,y,z) {
  card_type = c(x = "Energy",y = "POKEMON",z = "Trainer")
  deck = sum(x+y+z)
  hand = replicate(7,matrix(sample(card_type,size = 1,replace = FALSE)))
  return(prop.table(table(hand)))

}
testf(60,1,1)
> testf(60,1)
hand
   Energy   POKEMON   Trainer 
0.2857143 0.2857143 0.4285714

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

distributionfunctionfunctionprobabilityrrstatistics