evenBreak {evenBreak} | R Documentation |
compute the probability of a given distribution of a single suit across 4 hands
evenBreak(D4,n1,n2,n3,PERM)
D4 |
one quarter of the size of the deck, normally = 13 |
n1 |
the number of cards in the suit in the hands of player 1 |
n2 |
the number of cards in the suit in the hands of player 2 |
n3 |
the number of cards in the suit in the hands of player 3 |
PERM |
the number of permutations |
returns the probability of a given distribution of a single suit across 4 hands
Barry Zeeberg
n1<-3
n2<-3
n3<-3
n4<-13-(n1+n2+n3)
PERM<-length(unique(combinat::permn(c(n1,n2,n3,n4))))
PERM
evenBreak(13,n1,n2,n3,1)*length(unique(combinat::permn(c(n1,n2,n3,n4))))