通过在R中绘制5张卡片，模拟获得4张同类卡片（具有相同符号的四张卡片：7、8、9、10、J、Q、K或a）的概率

我试过这样做，但没有用，因为我无法匹配函数sum中的不同卡片。如何匹配这4张卡

suits <- c("Clubs", "Diamonds", "Hearts", "Spades")
cards <-c("Ace", 7:10, "Jack", "Queen", "King")

deck2 <- rep(cards, 4)

prob4cards <- function()
{
prob4cards <- sample(deck2, size= 5, replace = FALSE)
sum(prob4cards[,1] == prob4cards[,2] == prob4cards[,3]== prob4cards[,4])
}

---

suits抽取的5张牌中有4张牌相同的概率可以通过-

prob4cards <- function(deck) {
  prob4cards <- sample(deck, size= 5, replace = FALSE)
  any(table(prob4cards) == 4)
}

mean(replicate(10000, prob4cards(deck2)))

prob4cards谢谢你，如果我想要4张A我该怎么办？不要使用
any（table（prob4cards）==4）
使用
sum（prob4cards=='Ace'）==4