Publications by Jesus Israel Contreras Martinez NumControl: 16040438
Practica 11
Caso personas que trabajan en sectores y sean mujeres y hombres Caso: personas que trabajan en sectores y sean mujeres y hombres Las personas de cualquier género trabajan en algún sector, en función del género determinado de manera inicial se trata de encontrar la probabilidad del sector en donde laboran. Al elegir aleatoriamente a una per...
6616 sym R (2177 sym/38 pcs) 6 img
Practica 9
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 ...
3015 sym R (2140 sym/20 pcs)
Practica 8
R Markdown Primero asignamos los datos que usaremos a una variable llamada datos datos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/practicas%20R/unidad%202/alumnos.deportes.2020.csv") datos ## X nombres sexo futbol basquetbol voleybol atletismo ajedrez tenis ## 1 1 Ana F FALSE ...
2750 sym R (27406 sym/129 pcs)
Conjuntos
R Markdown De una población de 34 nombres se asginan aleatoriamente participantes que jugarán en alguna disciplina deportiva. Puede coincidir que los nombres participen en más de una disciplina. Se realizan operaciones de conjuntos union, intersección y diferencia Se generan los nombres que usaremos para esta prueba nombres <- c("Juan", "...
3326 sym R (9553 sym/103 pcs)
Practica 4
#Mostrar datos y generar datos set.seed(1000) muestra <- sample(70:100, size = 1000, replace=TRUE) muestra ## [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 ## [37] 93 97 96 77 88 72 96 75 76 82 91 75 76 85 97 7...
593 sym R (26048 sym/33 pcs) 3 img
Publish Document
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) ###Datos de la distribucion 1 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 ...
2317 sym R (4301 sym/73 pcs) 6 img
Practica 2
library(readr) datos <- read_csv("datosalumnos.csv") ## Parsed with column specification: ## cols( ## NO = col_double(), ## NOMBRE = col_character(), ## GENERO = col_character(), ## EDAD = col_double(), ## ESTATURA = col_double(), ## PESO = col_double() ## ) #Transformar a data.frame #Asegurarse de que los datos son del tipo...
7 sym R (5723 sym/20 pcs) 2 img
Practica 1
# 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', ...
8 sym R (5982 sym/23 pcs) 3 img
Document
R Markdown This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com. When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within t...
591 sym R (268 sym/2 pcs) 1 img
Practica 3
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) ###Datos de la distribucion 1 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 ...
2317 sym R (4301 sym/73 pcs) 6 img