Probabilidad

Probabilidad

Probabilidad: Estudio de azar y la incertidumbre en cualquier situacion 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.

Experimetno: Lanzar un dado

  #Instalar libreria y llamar paquete para el experimetno de lanzar un dado
  #install.packages("dice")
  library(dice) 

## Loading required package: gtools

  #Instalar libreria y llamar paquete para poner resultados en fraccion
  #install.packages("MASS")
  library(MASS)  

Cual es la probabilidad de obtener un 6 al lazar un dado?

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

## [1] 0.1666667

  fractions(un_seis)    

## [1] 1/6

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

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

## [1] 0.1111111

  fractions(un_cinco)

## [1] 1/9

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

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

## [1] 0.02777778

  fractions(dos_cinco)

## [1] 1/36

Que numero es 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")

Conclusiones

Hasta algo tan simple como es el azar puede ser predecido o anticipado aproximadamente mediante la ciencia de datos ya sea cualquiera de las actividades enlistadas a lo largo de este codigo como muchas otras las cuales conforme al numero de variables se podria llegar a un tipo de conclusion o hasta prediccion de posibles resultados basados en el azar o las probabilidades.