Proyecto

Baraja

conjunto_cartas<-c("A",2:10,"J","Q","K")
cartas<-c(rep(conjunto_cartas,4))
conjunto_tipos<-c("Corazon", "Diamante", "Trebol", "Espada")
tipos<-c(rep(conjunto_tipos,rep(13,4)))
baraja=data.frame(cartas,tipos)
baraja

##    cartas    tipos
## 1       A  Corazon
## 2       2  Corazon
## 3       3  Corazon
## 4       4  Corazon
## 5       5  Corazon
## 6       6  Corazon
## 7       7  Corazon
## 8       8  Corazon
## 9       9  Corazon
## 10     10  Corazon
## 11      J  Corazon
## 12      Q  Corazon
## 13      K  Corazon
## 14      A Diamante
## 15      2 Diamante
## 16      3 Diamante
## 17      4 Diamante
## 18      5 Diamante
## 19      6 Diamante
## 20      7 Diamante
## 21      8 Diamante
## 22      9 Diamante
## 23     10 Diamante
## 24      J Diamante
## 25      Q Diamante
## 26      K Diamante
## 27      A   Trebol
## 28      2   Trebol
## 29      3   Trebol
## 30      4   Trebol
## 31      5   Trebol
## 32      6   Trebol
## 33      7   Trebol
## 34      8   Trebol
## 35      9   Trebol
## 36     10   Trebol
## 37      J   Trebol
## 38      Q   Trebol
## 39      K   Trebol
## 40      A   Espada
## 41      2   Espada
## 42      3   Espada
## 43      4   Espada
## 44      5   Espada
## 45      6   Espada
## 46      7   Espada
## 47      8   Espada
## 48      9   Espada
## 49     10   Espada
## 50      J   Espada
## 51      Q   Espada
## 52      K   Espada

Selección de mano

mano=baraja[sample(1:52,5,replace = F),]
mano

##    cartas    tipos
## 43      4   Espada
## 46      7   Espada
## 7       7  Corazon
## 21      8 Diamante
## 4       4  Corazon

Probabilidades del Poker

#Tomando las 5 cartas al azar 
hand = choose(52,5)
#Par: esta combinacion se logra cuando se juntan dos cartas del mismo numero y diferente manjar
pares = choose(4,2) * choose(13,1) * choose(12,3) * choose(4,1) * choose(4,1) * choose(4,1)
pares/hand

## [1] 0.422569

#Doble Par: esta combinacion se logra cuando en las 5 cartas se logra obtener dos pares de cartas con el mismo numero
doble_par = choose(4,2) * choose(13,1) * choose(4,2) * choose(12,1) * choose(4,1) * choose(11,1)
doble_par/hand

## [1] 0.09507803

#Tercia: esta combinacion se logra cuando se juntan 3 cartas del mismo numero de las 5 cartas de la mano.
tercio = choose(4,3) * choose(13,1) * choose (12,2) * choose(4,1) * choose(4,1)
tercio/hand

## [1] 0.02112845

#Full house: es la combinacion de 3 cartas del mismo numero, mas un par de cartas del mismo numero.
house = choose(13,1) * choose(4,3) * choose(12,1) * choose(4,2)
house/hand

## [1] 0.001440576

#Poker: cuando se juntan 4 cartas del mismo numero.
poker = choose(13,1) * choose(4,4) * choose(12,1) * choose(4,1)
poker/hand

## [1] 0.000240096

#Escalera de color: cuando se juntan 5 cartas consecutivas del mismo manjar.
esc_color = 9 * choose(4,1)
esc_color/hand

## [1] 1.385169e-05

#Escalera real: consiste en 5 cartas consecutivas del mismo manjar pero la escalera se da con las cartas mas altas es decir del 10 hasta el As
esc_real = choose(4,1)
esc_real/hand

## [1] 1.539077e-06

prob<-c(pares/hand,doble_par/hand,tercio/hand,house/hand,poker/hand,esc_color/hand,esc_real/hand)
juegos<-c("PARES", "DOBLE PAR" , "TERCIO" , "FULL HOUSE", "POKER", "ESCALERA DE COLOR", "ESCALERA REAL")
probabilidades=data.frame(juegos,prob)
probabilidades

##              juegos         prob
## 1             PARES 4.225690e-01
## 2         DOBLE PAR 9.507803e-02
## 3            TERCIO 2.112845e-02
## 4        FULL HOUSE 1.440576e-03
## 5             POKER 2.400960e-04
## 6 ESCALERA DE COLOR 1.385169e-05
## 7     ESCALERA REAL 1.539077e-06