# dotFourOfAKind: dotFourOfAKind In poker: Play Texas Hold Em Poker

## Description

Determine the player with the highest hand (i.e., four of a kind and kicker) with score of 8.

## Usage

 `1` ```dotFourOfAKind(nPlayers, cards, score) ```

## Arguments

`nPlayers`

: number of hands to deal as integer in {2, ... , 9}

`cards`

:

 the 7 card hand as matrix[nPlayers, 14] col1: rank of card 1 in {2, ... , 14} col2: suit of card 1 in {1, 2, 3, 4} col3: rank of card 2 col4: suit of card 2 . . . col13: rank of card 7 col14: suit of card 7
`score`

:

 the score of the hand in absolute terms as vector[nPlayers] 9 = Straight Flush 8 = Four of a Kind 7 = Full House 6 = Flush 5 = Straight 4 = Three of a Kind 3 = Two Pair 2 = One Pair 1 = High Card

## Value

winner : absolute position of the winner as vector

`dotFourOfAKindRanker`

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20``` ```cards <- c(14,10,5,1,2,1,14,9,7,2,2,2,4,4,4,3,3,3,8,8,8,3,3,3,13,13,13) cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4) cards <- matrix(cards,nrow=3,ncol=14); cards score <- showdown(cards); score nPlayers <- nrow(cards); nPlayers dotFourOfAKind(nPlayers,cards,score) cards <- c(3,4,5,1,1,1,8,9,10,1,1,1,14,14,14,1,1,1,14,14,14,2,2,2,7,7,7) cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4) cards <- matrix(cards,nrow=3,ncol=14); cards score <- showdown(cards); score nPlayers <- nrow(cards); nPlayers dotFourOfAKind(nPlayers,cards,score) cards <- c(3,4,5,1,1,1,8,9,10,1,1,1,14,14,14,1,1,1,14,14,14,2,2,2,11,11,11) cards <- c(cards,3,3,3,14,14,14,3,3,3,14,14,14,4,4,4) cards <- matrix(cards,nrow=3,ncol=14); cards score <- showdown(cards); score nPlayers <- nrow(cards); nPlayers dotFourOfAKind(nPlayers,cards,score) ```

poker documentation built on Aug. 9, 2017, 9:03 a.m.