我试图弄清楚如何找到一个玩家获得5张卡片查理的概率（即在没有破坏的情况下抽取5张卡片），其中包含4或7副卡牌......
我已经尝试了以下公式并且它不起作用....它适用于1个甲板而不是4个甲板....即如果我放入4号和16号而不是16号和1号甲板。 64它可以工作，但我不能让它工作4或7副卡＃
deck <- c(rep(1:9, 16), rep(10, 64))
acceptable <- function(x) {sum(x) <= 21}
sum(combn(deck, 5, acceptable))
有人有什么想法吗？
非常感谢