“Probabilidades”

---

Conociendo las probabilidades

Probabilidad: estudio al azar y la incertidumbre en cualquier situacion en la cual varios posibles sucesos pueden ocurrir. Es un valor entre o(imposible) y 1(seguro) Ejemplo: La probabilidad de lluvia hoy es de0.70 (70%)

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

Experimiento: lanzar un dado.

Instalar libreria

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

Instalar libreria para poner resultados en fraccion

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

¿Cual es la probabilidad de obtener un 6 al lanzar un dado?

un_sets <- getEventProb(nrolls =1, ndicePerRoll = 1, nsidesPerDie = 6, eventList = list(6))
    un_sets

## [1] 0.1666667

fractions(un_sets)  

## [1] 1/6

¿Cual es la probabilidad de sumar un 5 al lanzar dos dados?

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

## [1] 0.1111111

fractions(dos_cinco)

## [1] 1/9

¿Que numero es mas probable de alcanzar al lanzar dos datos?

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 dos dados", col="pink")  

Experimento: Mano de Pokar

Instalar libreria y llamar paquete para manejo de funciones y vectores

  #install.packages("tiddyverse")
  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(numeros, palos)

Crear el mazo de cartas

 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

##   31   50   37   36   32 
## "6P" "QC" "QT" "JD" "7D"

Conclusión

En esta actividad vimos como utilizar las predicciones para futuros trabajos, para propositos de comprender más lo que estabamos realizando, el maestro opto el ejemplo de juegos de azar para ver las probabilidades. Este mismo conocimiento despues se podria trasladar a la creacion de probabilidades en las decisiones de las empresas para generar un conocimiento profundo. Es como en el caso de un e-commerce, se puede ver la probabilidad de los clientes comprando cierto producto más que otro si se llega a introducir un producto nuevo y de ahi partir con las estrategias.