私はRプログラミングの初心者です。R で 1 つの問題を解決する必要があります。R で次の実験をシミュレートする必要があります。ポーカー ハンドは、従来の 52 枚のカードのパックから配られる 5 枚のカードで構成され、カードの順序は重要ではありません。与えられたハンドに少なくとも 1 人のキングと少なくとも 1 つのクイーンがいる確率を求めます。
少なくとも 1 人の王を見つける方法は知っていますが、少なくとも 1 人の王と少なくとも 1 人の女王を見つける方法は知っていません。少なくとも 1 つのキングコードの場合:
deck<- rep(1:13 , each=4)
#here J=11 , Q=12, K=13
nhands <- 1000
Xk<- c(rep(-1, nhands))
for( i in 1:nhands){
hand <- sample( deck , 5 , replace= FALSE)
numberofK<-0
for( j in 1:5){ # count Kings
if( hand[j] == 13){
numberofK <- numberofK +1
}
}
#print(numberofK)
Xk[i] <-numberofK
#print(hand)
}
table(Xk) /nhands
誰でも必要な1のコーディングを手伝ってくれませんか..ありがとう