Equipo

Jesus Ruiz Tinajero

No de Control: 19041250

Angel Rafael Olivas Garcia

No de Control: 19041232

Oscar Ivan Alonso Simental

No de Control: 19041186

Juan Manuel Salcido Ruelas

No de Control: 19041252

Actividad

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()
## )
datos2 <- read_csv("~/datosalumnos2.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

datos <- as.data.frame(datos)
class(datos)
## [1] "data.frame"
datos
##    NO   NOMBRE GENERO EDAD ESTATURA PESO
## 1   1    ANAND      M   18      176   72
## 2   2    DIANA      F   18      178   78
## 3   3     IVAN      M   19      170   55
## 4   4   DANIEL      M   18      180   78
## 5   5    KEVIN      M   18      178   80
## 6   6    ANGEL      M   19      173   55
## 7   7    JESUS      M   18      170   70
## 8   8    MARCO      M   18      180   91
## 9   9   IRVING      M   19      170   70
## 10 10  ELEAZAR      M   18      180   95
## 11 11     JUAN      M   19      180   60
## 12 12   BORDAS      M   18      185   80
## 13 13     LUIS      M   19      177   92
## 14 14  JAZHIEL      M   18      172   87
## 15 15    KEYLA      F   18      154   63
## 16 16  VANESSA      F   18      162   50
## 17 17    JESUS      M   18      160   60
## 18 18   ALEXEI      M   19      170   80
## 19 19    FANNY      F   18      165   52
## 20 20     ALDO      M   18      176   85
## 21 21     LUIS      M   18      186   87
## 22 22 FERNANDA      F   19      145   58
## 23 23    FRIDA      F   18      150   55
## 24 24  JESABEL      F   18      176   80
## 25 25    MARIO      M   18      176   65
## 26 26    FABIO      M   18      180   60
## 27 27      NOE      M   19      176   77
## 28 28    ELIAS      M   19      180   90
## 29 29   OSIRIS      M   18      180   99
datos2 <- as.data.frame(datos2)
class(datos2)
## [1] "data.frame"

Nombre Mas Largo

#El nombre mas largo en el grupo de alumnos es "Fernanda"

Media aritmetica de Alumnos y Alumnas

mediagen <-  table(datos$GENERO)
mediagen
## 
##  F  M 
##  7 22
#En esta seccion, se determina la media de genero, en el grupo de alumnos se encuentran mas Masculinos 
#que Femeninos
pie(mediagen)

barplot(mediagen)

Frecuencia de la Edad

freceda <- table(datos$EDAD)
freceda
## 
## 18 19 
## 20  9
sort(freceda, decreasing = TRUE)
## 
## 18 19 
## 20  9
#En esta seccion se determina la frecuencia de las edades en los alumnos.
stem(freceda)
## 
##   The decimal point is 1 digit(s) to the right of the |
## 
##   0 | 9
##   1 | 
##   1 | 
##   2 | 0

Genero Masculino y Femenino

genmasc <- head(datos2, n=22)
genfem <- tail(datos2, n=7)

Media Aritmetica de la Edad

#MASCULINO
mediaedadmasc <- mean(genmasc$EDAD)
mediaedadmasc
## [1] 18.36364
#FEMENINO
mediaedadfem <- mean(genfem$EDAD)
mediaedadfem
## [1] 18.14286

Media Aritmetica de la Estatura

#MASCULINO
mediaestmasc <- mean(genmasc$ESTATURA)
mediaestmasc
## [1] 176.1364
#FEMENINO
mediaestfem <- mean(genfem$ESTATURA)
mediaestfem
## [1] 161.4286

Media Aritmetica del Peso

#MASCULINO
mediapesmasc <- mean(genmasc$PESO)
mediapesmasc
## [1] 76.72727
#FEMENINO
mediapesfem <- mean(genfem$PESO)
mediapesfem
## [1] 62.28571

Resumen General

summary(datos)
##        NO        NOMBRE             GENERO               EDAD      
##  Min.   : 1   Length:29          Length:29          Min.   :18.00  
##  1st Qu.: 8   Class :character   Class :character   1st Qu.:18.00  
##  Median :15   Mode  :character   Mode  :character   Median :18.00  
##  Mean   :15                                         Mean   :18.31  
##  3rd Qu.:22                                         3rd Qu.:19.00  
##  Max.   :29                                         Max.   :19.00  
##     ESTATURA          PESO      
##  Min.   :145.0   Min.   :50.00  
##  1st Qu.:170.0   1st Qu.:60.00  
##  Median :176.0   Median :77.00  
##  Mean   :172.6   Mean   :73.24  
##  3rd Qu.:180.0   3rd Qu.:85.00  
##  Max.   :186.0   Max.   :99.00
Como resultados de la practica obtuvimos los datos de nombre, genero, edad, peso y estatura de un conjunto de datos de los compañeros del grupo.
Se realizaron los análisis de las frecuencias de edades, con 20 personas de 18 años y 9 con 19, frecuencias de genero, obteniendo 7 de genero femenino y 22 de genero masculino, ademas se realizaron los cálculos de medias de edad, estatura y peso, aplicandose a cada genero
Tambien se muestran gráficas de pastel y barras correspondientes a la frecuencia de genero, y un resumen general utilizando la funcion: summary().