probabilidad de sacar un numero < 2 de entre 1-4

Determinar la probabilidad de sacar un número de URNA menor a dos de entre los valores de

1, 2, 3 y 4. Suponenmos que son esferas con los valores 1, 2, 3 y 4 resp..

Calcular la probabilidad de un un número de n repeticiones

r <- 100 # 100 repeticiones, probar primero con 100 luego con 1000000
urna <-  1:4   # 
acumularBASE <- NULL   # Llenar un vector con ceros r veces 
acumularBASE

## NULL

Llenar el arreglo de r posiciones con una muestra de valores entre uno y 4

acumularBASE <- sample(urna, r, replace = TRUE)
acumularBASE

##   [1] 4 1 1 2 1 2 4 3 3 4 2 4 3 4 4 1 2 4 1 2 2 4 3 1 2 2 2 3 1 4 1 1 3 2 1
##  [36] 3 1 1 1 2 4 1 2 4 2 4 2 1 3 3 3 2 1 1 4 3 1 1 3 4 3 2 3 3 4 2 1 1 1 1
##  [71] 4 4 3 3 2 1 4 2 4 1 3 4 4 2 4 4 4 1 2 3 3 1 2 3 1 2 4 1 4 2

Determinamos cuantos están por debajo de 2.Los que sean se les pone 1 y los que no un cero

contar <- ifelse(acumularBASE < 2, 1,0)
contar

##   [1] 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 0 0 0 0 1 0 1 1 0 0 1
##  [36] 0 1 1 1 0 0 1 0 0 0 0 0 1 0 0 0 0 1 1 0 0 1 1 0 0 0 0 0 0 0 0 1 1 1 1
##  [71] 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 1 0 0

Ahora por medio de frecuencia determinar probabilidad

prob<-sum(contar) / r

La probailidad de que sea un número menor a 2 es …

prob

## [1] 0.29

Otra manera de generar la frecuencia ya CONOCIDA EN EJERCICIOS ANTERIORES y que SIRVE PARA CONOCER LA PROBABILDIAD

frecuencia <- table(acumularBASE)
frecuencia

## acumularBASE
##  1  2  3  4 
## 29 24 21 26

frecuencia <- transform(frecuencia)

frecuencia 

##   acumularBASE Freq
## 1            1   29
## 2            2   24
## 3            3   21
## 4            4   26

prob <- frecuencia$Freq / r
prob

## [1] 0.29 0.24 0.21 0.26

tablaprobabilidades <- data.frame(frecuencia, prob)
tablaprobabilidades

##   acumularBASE Freq prob
## 1            1   29 0.29
## 2            2   24 0.24
## 3            3   21 0.21
## 4            4   26 0.26

¿Cuál es la probabilidad de que sea o 2 o 4, un PAR ?

tablaprobabilidades$prob[2] + tablaprobabilidades$prob[4] # son posiciones de renglones

## [1] 0.5

¿Cuál es la probabilidad de que sea o número NON ?

tablaprobabilidades$prob[1] + tablaprobabilidades$prob[3] # son posiciones de renglones

## [1] 0.5

La tendencia con un experimento de 1000000 (un millón de veces) de repeticiones es que tiende a ser 25% probable para cada número.