evenBreak {evenBreak}R Documentation

evenBreak

Description

compute the probability of a given distribution of a single suit across 4 hands

Usage

evenBreak(D4,n1,n2,n3,PERM)

Arguments

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

Value

returns the probability of a given distribution of a single suit across 4 hands

Author(s)

Barry Zeeberg

Examples

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))))

[Package evenBreak version 1.0 Index]