Publications by Alejandro Medrano
Conjuntos
Generación de datos 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",...
822 sym R (5363 sym/71 pcs)
Combinaciones y permutaciones con R
#Utilicé los datos de un equipo existente para poder realizar esta practica. library(gtools) nombres <- c("Keyla", "Stephanie", "Vanessa", "Aldo", "Eleazar", "Victor","Luis", "Manuel", "Mary", "Adriana", "Olga", "Paty") nombres <- sort(nombres) nombres ## [1] "Adriana" "Aldo" "Eleazar" "Keyla" "Luis" "Manuel" ## [7] "...
1963 sym R (194879 sym/77 pcs)
Datos agrupados
Identificar datos de la muestra Ordenar datos y mostrar muestra <-sample(70:100, 1000, replace = TRUE) muestraord <- sort(muestra) muestraord ## [1] 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 70 ## [19] 70 70 70 70 70 70 70 70 70 71 71 71 71 71 71 71 71 71 ## [37] 71 71 71 71 71 71 71 ...
686 sym R (20750 sym/28 pcs) 2 img
Promedio de Calificaciones de Alumnos Aleatorio con sample()
Determinar la media poblacional y media muestral de un conjunto de registros de alumnos con datos generados aleatoriamente set.seed(1234) Generar variables no <- 1:7200000 promedios <- sample(70:100, 7200, replace = TRUE) carreras <- c('ELECTRICA', 'ELECTRONICA', 'SISTEMAS', 'INFORMATICA', 'INDUSTRIAL', 'QUIMICA', 'ADMINISTRACION', 'CIVIL', '...
326 sym R (1019 sym/6 pcs)
FRECUENCIA DE ACTIVIDADES CULTURALES Y DEPORTIVAS DE LOS ALUMNOS DEL ITD
# 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 de Guerra', 'Voleybol', 'Futbol', ...
760 sym R (4284 sym/14 pcs) 1 img
Medidas de centrales y de dispercion
set.seed(1000) dist1 <- sample(70:100, size = 50, replace=TRUE) dist2 <- sample(70:100, size = 50, replace=TRUE) dist3 <- sample(70:100, size = 50, replace=TRUE) dist1 ## [1] 85 73 80 91 88 93 98 72 98 87 91 75 82 75 70 78 98 95 95 97 92 87 74 99 88 ## [26] 85 95 98 79 78 95 76 93 81 86 91 93 97 96 77 88 72 96 75 76 82 91 75 76 85 dist2 #...
1184 sym R (2401 sym/54 pcs) 4 img
Probabilidades
library(readr) datos <- read.csv("C:/Users/Aleja/Downloads/alumnos.deportes.2020.csv") datos ## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis ## 1 1 Ana F FALSE FALSE FALSE FALSE FALSE FALSE ## 2 2 Antonio M FALSE FALSE FALSE FALSE FALSE FALSE ## 3 3 Aracely F F...
5007 sym R (20482 sym/58 pcs)
Caso de computadoras
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: Objetiv...
1170 sym R (712 sym/12 pcs) 2 img
Teorema de bayes 2
Caso. Dos bolsitas con bolitas rojas y negras Se tienen dos buzones. El Buzón 1 con 3 bolitas negras y 2 rojas. El Buzón 2, con 4 negras y 3 rojas. El experimento aleatorio, consiste en sacar una bolita del primer buzón e introducirla en el segundo, para después extraer una bolita de este último buzón y ahí preguntar probabilidades de ocur...
1137 sym R (554 sym/4 pcs)
Teorema de bayes
Caso: Fábrica que compra piezas de dos proveedores Sea A1 el evento la pieza proviene del proveedor 1 y A2 el evento la pieza proviene del proveedor 2. De las piezas que compra la fábrica, 65% proviene del proveedor A1 y 35% restante proviene del proveedor A2. Por tanto, si toma una pieza aleatoriamente, le asignará las probabilidades previas ...
1902 sym R (2839 sym/22 pcs)