如何解决构建功能辅助:使用R从自定义卡片组创建概率分布
我正试图找到一种建立概率分布的方法,以了解我将在起手牌中获得什么样的牌。
# 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 举报,一经查实,本站将立刻删除。