Publications by Rodrigo Arellano Rodríguez 20040377
Caso 9 Probabilidad en conjunto de datos personas
#1 Cargar Librerias library(knitr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(gtools) #2 Determinar o Construir el Conjunto de Datos source("ht...
20730 sym R (6857 sym/42 pcs)
Caso 5 Medidas de Dispersion del Conjunto de Datos Alumnos
#1 Cargar Librerias library(readr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(ggplot2) #2 Cargar datos de la direccion citada datos <- read...
513 sym R (16029 sym/95 pcs) 27 img
Caso 1 Tabla de Frecuencias de Alumnos Inscritos en Educacion Superior
#Cargar librerias library(fdth) ## ## Attaching package: 'fdth' ## The following objects are masked from 'package:stats': ## ## sd, var library(readr) #Cargar los datos de la direccion citada datos.alumnos <- read.csv("https://raw.githubusercontent.com/rpizarrog/probabilidad-y-estad-stica/master/datos/promedios%20alumnos/datos%20alumnos%...
566 sym R (24519 sym/79 pcs) 18 img
Caso 8 Probabilidades BlackJack
library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(knitr) library(gtools) baraja <- c("A","2","3","4","5","6","7","8","9","10","J","Q","K") mazo <- re...
5426 sym R (9965 sym/57 pcs)
Caso 4. Cuartiles y Percentiles
#1 Cargar librerías library(readr) library (ggplot2) library(resumeRdesc) #Construir los datos set.seed(2020) n <- 100 media.edad <- 45; ds.edad <- 10 media.peso <- 75; ds.peso <- 15 media.estatura <- 1.70; ds.estatura <- 0.10 edad <- round(rnorm(n = n, mean = media.edad, sd = ds.edad),0) peso <- round(rnorm(n = n, mean = media.peso, sd =...
643 sym R (4516 sym/61 pcs) 5 img
Caso 6. Media Ponderada y Geometrica
Media Ponderada Calcular la media ponderada de los siguientes datos: Dato: 20,15,5,8 Peso: 2,3,1,4 Dato=c(20,15,5,8) Peso=c(2,3,1,4) media.ponderada <- weighted.mean(Dato, Peso) round(media.ponderada, 2) ## [1] 12.2 Notas y pesos de los cinco exámenes realizados por un alumno: Nota: 10,8,3,5,3 Peso: 10%,15%,25%,20%,30% Nota=c(10,8,3,5,3) Peso...
442 sym R (496 sym/10 pcs)
Caso 7 Permutaciones y Combinaciones
library(gtools) library(knitr) S.personas <- c("Juan", "Paty", "Laura", "Oscar", "Aracely" ) personas.agregadas <- c("Rodrigo", "Isaac", "Cruz", "Salma", "Angela") S.personas <- c(S.personas,personas.agregadas) S.personas ## [1] "Juan" "Paty" "Laura" "Oscar" "Aracely" "Rodrigo" "Isaac" ## [8] "Cruz" "Salma" "Angela" n <-...
741 sym R (8634 sym/28 pcs)
Caso 2 Tabla de Frecuencias
1. Cargar librería fdth library(fdth) 2. Crear conjunto de datos llamado personas Crear 100 nombres a partir de 20 nombres (nombres) Crear aleatorio el género entre Femenino y Masculino (generos) Crear la edad aleatorio entre 15 y 60 (edades) Crear el deporte favorito de cada persona aleatorio entre 10 (deportes) losnombres = c("RODRIGO","JO...
1713 sym R (9077 sym/30 pcs) 6 img
Caso 23 Teorema del Limite Central
Objetivo Simular el teorema del limite central. Descripcion Con un conjunto de datos y librerías adecuadas, simular el valor de la media muestral comparado con el valor de la media poblacional asociando con ello con el teorema del límite central. #Librerias library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked fr...
2848 sym R (7426 sym/79 pcs) 6 img
Caso 22-Muestreo y Tipos de Muestreo
Objetivo Determinar y simular muestreos Descripcion Con un conjunto de datos utilizar mecanismos de programacion para determinar muestreos mediante tecnicas de aleatorio simple, aleatorio sistematico, aleatorio estratificado y por conglomerados. #Librerias library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from ...
14180 sym R (3808 sym/35 pcs)