Publications by Manuel Herrera
Sector Salud
Evento sectores # Existen tres sectores en donde trabajan las personas # Hay una probabilidad de que en el sector servicios trabaje 40% (0.40) de las personas # Hay una probabilidad de que en el sector servicios trabaje 35% (0.35) de las personas # Hay una probabilidad de que en el sector otros trabaje 25% (0.25) de las personas Prob.Servi <-...
503 sym R (4182 sym/47 pcs) 5 img
Teorema de Bayes
Probabilidades de fabricación por proveedor PA1 Probabilidad del proveedor1 PA2 Probabilidad del proveedor2 ## Probabilidad de que una pieza se fabricada por el proveedor 1 = 0.60 PA1 <- 0.60 ## Probabilidad de que una pieza se fabricada por el proveedor 2 = 0.40 PA2 <- 0.40 Probabilidades condicionales Proveedor 1 PG.PA1 Probabilidad de q...
1931 sym R (3350 sym/26 pcs) 3 img
Bolitas Rojas y Nergas
Demostracion Evento 1 Suceso N: Sacar una bolita negra, probabilidad 3/5) Suceso R: Sacar una bolita roja, probabilidad 2/5) ## PR Probabilida de que sea Roja (3/5) ## PN Probabilida de que sea Negra (2/5) ## Con () se hace el cálculo de manera interna PN <- (3/5) PR <- (2/5) cat("la probabilidad en el primer evento de que sea negra es: ...
434 sym R (5999 sym/27 pcs)
Probabilidades
Los datos library(readr) #datos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/practicas%20R/unidad%202/participantes%20en%20equipos%20deportivos.csv") datos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/practicas%20R/unidad%202/alumnos.deportes.2020.csv")...
1420 sym R (26321 sym/121 pcs)
Conjuntos
Nombres nombres <- c("Juan", "Paco", "Lalo", "Memo", "Paty", "Laura", "Oscar", "Luis", "Ernesto", "Lupita", "Carmen", "Eduardo", "Ana", "Luisa", "Maria", "Rosario", "Margarita", "Margarito", "Sandra", "Sandro", "Rubén", "Gabino", "Patricia", "Salvador", "Romualdo", "Saul", "Raul", "Gerardo", "Antonio", "Yuri", "Aracely", "Jeorgina", "Javier", "L...
1381 sym R (9321 sym/114 pcs)
Agrupar datos
Datos muestra <- sample(70:100, 1000, replace = TRUE) muestra ## [1] 80 96 93 96 89 85 92 97 92 88 88 71 96 97 94 72 86 85 ## [19] 95 82 81 89 81 81 83 73 70 78 83 74 95 75 70 83 76 74 ## [37] 79 94 95 100 90 89 97 96 80 87 98 96 87 98 83 75 83 91 ## [55] 97 74 82 99 70 74 7...
327 sym R (24814 sym/27 pcs) 2 img
Muestra de Datos
Datos set.seed(1000) dist1 <- sample(70:100, size = 100, replace=TRUE) dist2 <- sample(70:100, size = 100, replace=TRUE) dist3 <- sample(70:100, size = 100, replace=TRUE) dist1 ## [1] 85 73 80 91 88 93 98 72 98 87 91 75 82 75 70 78 98 95 ## [19] 95 97 92 87 74 99 88 85 95 98 79 78 95 76 93 81 86 91 ##...
442 sym R (6332 sym/80 pcs) 6 img
Frecuencias
Frecuencia de Actividades deportivas y culturales en alumnos Generar los datos # Preferencias de actividad deportiva y cultural en una muestra de 30 alumnos actividad <- c('Dibujo', 'Tiro con Arco', 'Baile', 'Voleybol', 'Futbol', 'Americano', 'Natación', 'Tahitiano', 'Natación', 'Tiro con Arco', 'Futbol', 'Americano', 'Basquetbol', 'Banda ...
263 sym R (5911 sym/23 pcs) 2 img
Combinaciones y Permutaciones
library(gtools) Datos y ordenamiento nombres <- c("Ari", "Erick", "Manuel", "Jonhatan", "Augusto", "Daniel", "Paty", "Adriana", "Olga", "Mary") nombres <- sort(nombres) nombres ## [1] "Adriana" "Ari" "Augusto" "Daniel" "Erick" "Jonhatan" ## [7] "Manuel" "Mary" "Olga" "Paty" Combinaciones en grupos de 2 N <- length(nom...
1741 sym R (66237 sym/73 pcs)
Computadoras Portatiles
Una tienda de electrónica vende un modelo particular de computadora portátil. Hay sólo cuatro computadoras en existencia y la gerente se pregunta cuál será la demanda de hoy para este modelo particular. En el departamento de marketing de que la distribución de probabilidad para x, la demanda diaria para la laptop es como se muestra. Objeti...
827 sym R (437 sym/10 pcs) 2 img