library(knitr)
library(gtools)En una empresa trabajan hombres y mujeres, además se sabe que un 15% de los empleados se han perfeccionado en el extranjero. Si el 35% de las personas son mujeres, ¿cuál es la probabilidad de que al escoger una persona de la empresa, esta sea mujer y se haya perfeccionado en el extranjero?
EMP.EXT <- 0.15
MUJERES<- 0.35
paste("La probabilidad de que al escojer una persona de la empresa esta sea mujer y esta haya perfeccionado: ", round(EMP.EXT * MUJERES * 100,2), "%" )## [1] "La probabilidad de que al escojer una persona de la empresa esta sea mujer y esta haya perfeccionado: 5.25 %"Se lanza un dado, y no sale 6, lanzas de nuevo. ¿Cuál es la probabilidad de sacar un 6 en el segundo lanzamiento?
DADO <- c("1","2","3","4","5","6")
n <- length(DADO)
C6 <- c("6")
NC <- length(C6)
P6 <- NC/n
paste("la probabilidad de sacar un 6 en el segundo lanzamiento es de :",(P6 * 100), "%")## [1] "la probabilidad de sacar un 6 en el segundo lanzamiento es de : 16.6666666666667 %"OTC <- c("1","2","3","4","5")
N.OTC <- length(OTC)
POTC <- N.OTC / n
paste("La probabilidad de sacar otro numero, que no sea 6 es de :",POTC, "%")## [1] "La probabilidad de sacar otro numero, que no sea 6 es de : 0.833333333333333 %"Una tienda dispone de 15 camisas en tres tamaños: 3 pequeñas, 6 medianas y 6 grandes. Se seleccionan al azar 2 camisas. ¿Qué probabilidad hay que ambas camisas seleccionadas sean pequeñas, si primero se saca una, se reemplaza en el lote y se saca la segunda?
datos <- data.frame(Camisas = c("Pequeñas","Medianas","Grandes","Total"), Total = c(3,6,6,15))
kable(datos,caption = "Lista del lote")| Camisas | Total |
|---|---|
| Pequeñas | 3 |
| Medianas | 6 |
| Grandes | 6 |
| Total | 15 |
camisas <- c('P','P','P','M','M','M','M','M','M','G','G','G','G','G','G')
n <- length(camisas)
camisas <- sample(camisas, size = n )
camisas## [1] "P" "G" "M" "M" "G" "P" "G" "G" "M" "P" "M" "M" "M" "G" "G"pp <- length(which(camisas == 'P')) / n
pm <- length(which(camisas == 'M')) / n
pg <- length(which(camisas == 'G')) / n
RESULTADO <- (pp * pp) * 100
paste("La probabilidad de sacar 2 camisas pequeñas es del : ",RESULTADO,"%")## [1] "La probabilidad de sacar 2 camisas pequeñas es del : 4 %"En esta ocacion estaremos trabajando con la probabilidad de eventos que son INDEPENDIENTES, se continua un poco lo que se vio en el caso numero 11, solo que esta vez son eventos que no dependen de otro para llevarse a cabo, o en si que no influyen en el resultado del otro
EN EL CASO #1: Aqui tenemos una empresa, en la cual tenemos el porcentaje de hombres y mujeres, se tiene que el 15% de las personas han aprendido en el extranjero, y queremos ver cual es la probabilidad e que si escogemos a alguien al azar sea mujer y aprendida en el extranjero. Para obtener el resultado se hace una operacion bastante sencilla, multiplicamos el porcentaje de las mujeres y el 15% ( que es el de la gente que se realizo en el extranjero), y obtenemos que la probabilidad de que salga una mujer aprendida del extranjero es del 5.25%
EN EL CASO #2: Este es un caso bastante sencillo, al lanzar un dado y no obtener el numero 6, si se vuelve a lanzar que probabilidad tenemos de obtener 6,es bastante facil, simplemente con una division obtenemos que la probabilidad es del 16.6%
EN EL CASO #3: De los 3 este el que es un poco mas largo, tenemos 15 camisas, de 3 tamaños, y queremos saber que probabilidad hay de sacar 2 camisas chicas al sacar alguna y remplazarla. Primero organizamos los datos en una tabla para poder interpretarlos de mejor manera, despues sacamos vamos descartando los casos que no son y efectuamos la respectiva seleccion para pbtener que la probabilidad es del 4%.