我需要找出在R中绘制3张相同颜色的卡片的概率

Question

会问一个问题。我们有一副标准的52张牌(4种颜色，13种数值(。我们随机抽三张牌(不回(。我需要找出在R中绘制3张相同颜色的卡片的可能性。请帮忙，谢谢。：(这就是我得到的rn

cards <- c(rep("color1", 13), rep("color2", 13), rep("color3", 13), rep("color4", 13))
sample(x = cards, size = 3, replace = FALSE)

Answer 1

这里有一个使用10000模拟的简单解决方案

library(tidyverse)
library(infer)
deck <- tibble(cards = c(rep("color1", 13), rep("color2", 13), rep("color3", 13), rep("color4", 13)))
check_all <- function(x) {
if_else(condition = length(unique(x)) == 1,true = T,false = F)
}
deck %>% 
rep_sample_n(size = 3,replace = F,reps = 10000) %>% 
group_by(replicate) %>% 
summarise(result = check_all(cards)) %>% 
summarise(prop = mean(result))