Probabilidad

PROBABILIDAD

Probabilidad: Estudio de azar y la incertidumbre en cualquier situación en la cual varios posibles sucesos

Pueden ocurrir

Es un valor entre 0 (imposible) y 1 (seguro).

Ejemplo: La Probabilidad de que llueva hoy es de 0,70 (70%)

#Experimento: Cualquier accion cuyo resultado esta sujeto a la incertidumbre #Ejemplo: Lanzar una moneda al aire

Experimiento: Lanzar un dado

Instalar libreria y llamar paquete para el experimento de lanzar un dado

#install.packages("dice")
  library(dice)

## Loading required package: gtools

#install.packages("MASS")
  library(MASS)

¿Cual es la probabilidad de obtener un 5 en dos lanzamiento de dados consecutivos?

dos_cinco <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(5))
  dos_cinco

## [1] 0.1111111

  fractions(dos_cinco) 

## [1] 1/9

Cual es el numero mas probable de alcanzar al lanzar dos dados

sumar_dos <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(2))
  sumar_tres <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(3))
  sumar_cuatro <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(4))
  sumar_cinco <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(5))
  sumar_seis <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(6))
  sumar_siete <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(7))
  sumar_ocho <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(8))
  sumar_nueve <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(9))
  sumar_diez <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(10))
  sumar_once <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(11))
  sumar_doce <- getEventProb(nrolls = 1, ndicePerRoll = 2, nsidesPerDie = 6, eventList = list(12))
  suma <- c(2,3,4,5,6,7,8,9,10,11,12)  
  Probabilidad <- c(sumar_dos,sumar_tres,sumar_cuatro,sumar_cinco,sumar_seis,sumar_siete,sumar_ocho,sumar_nueve,sumar_diez,sumar_once,sumar_doce)
  tabla <- cbind(suma,Probabilidad)  
  barplot(Probabilidad,names.arg = suma, main = "Probabilidad", xlab ="Suma de 2 Dados", col = "Tomato")

Experimento: Mano de Poker

Instalar libreria y llamar paquete para manejo de funciones y vectores

#install.packages("tidyverse")
    library(purrr)

Crear Baraja inglesa

numero <- c(2,3,4,5,6,7,8,9,"D","J","Q","K","A")
    numeros <- rep(numero,4)
    palo <- c("T","C","P","D")
    palos <- rep(palo,13)
    baraja <- data.frame(numero,palos)

Crear la mazo de barajas

mazo <- apply(format(baraja),1,paste,collapse="")
    mazo

##    1    2    3    4    5    6    7    8    9   10   11   12   13   14   15   16 
## "2T" "3C" "4P" "5D" "6T" "7C" "8P" "9D" "DT" "JC" "QP" "KD" "AT" "2C" "3P" "4D" 
##   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32 
## "5T" "6C" "7P" "8D" "9T" "DC" "JP" "QD" "KT" "AC" "2P" "3D" "4T" "5C" "6P" "7D" 
##   33   34   35   36   37   38   39   40   41   42   43   44   45   46   47   48 
## "8T" "9C" "DP" "JD" "QT" "KC" "AP" "2D" "3T" "4C" "5P" "6D" "7T" "8C" "9P" "DD" 
##   49   50   51   52 
## "JT" "QC" "KP" "AD"

Crear mano de cartas

mano <- function(n) sample(mazo,n,rep=FALSE)
    mi_mano <- mano(5)
    mi_mano

##    9   19   11   49   17 
## "DT" "7P" "QP" "JT" "5T"

Conclusion

Durante esta actividad en R studio pudimos trabajar con probabilidades, realizamos un ejercicio para conocer la probabilidad de obtener distintos resultados en un dado con distintos escenarios, después creamos la baraja inglesa para el experimento de Mano de Póker.

Por otro lado podemos recalcar la importancia de esta actividad con otros tipos de experimentos que se puedan llegar a obtener a traves de la probabilidad en la vida diaria desde probabilidades de éxito en un negocio hasta para tener diferentes escenarios para una toma de decisiones.