——–

19041231 Osiris Ochoa Solis

19041239 Elias Jr. Ramos Lopez

19041216 Frida Krystel Herrera Hernández

19041198 Marco Daniel De La Torre Mendia

19041206 Irving alonso Galvan carabez

——–
Objetivo Anlalizar la frecuencia de actividades deportivas y culturales
——–

Paso 1: Aqui exponemos los resultados sobre las preferencias de las actividades extraescolares de los 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', 
               'Oratoria', 'Tahitiano', 'Box', 'Futbol', 'Voleybol', 
               'Natación', 'Pesas', 'Fotografia', 'Basquetbol', 'Dibujo',
               'Ajedrez', 'Dibujo', 'Fotografia', 'Voleybol','Halterofilia',
               'Atletismo', 'Basquetbol', 'Dibujo', 'Box', 'Atletismo', 
               'Dibujo', 'Ajedrez')
actividad
##  [1] "Dibujo"          "Tiro con Arco"   "Baile"           "Voleybol"       
##  [5] "Futbol"          "Americano"       "Natación"        "Tahitiano"      
##  [9] "Natación"        "Tiro con Arco"   "Futbol"          "Americano"      
## [13] "Basquetbol"      "Banda de Guerra" "Voleybol"        "Futbol"         
## [17] "Oratoria"        "Tahitiano"       "Box"             "Futbol"         
## [21] "Voleybol"        "Natación"        "Pesas"           "Fotografia"     
## [25] "Basquetbol"      "Dibujo"          "Ajedrez"         "Dibujo"         
## [29] "Fotografia"      "Voleybol"        "Halterofilia"    "Atletismo"      
## [33] "Basquetbol"      "Dibujo"          "Box"             "Atletismo"      
## [37] "Dibujo"          "Ajedrez"

Paso 2: Sacamos la frecuencia absoluta de cada una de las actividades

frecuencia <- table(actividad)
frecuencia
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##               2               2               2               1               1 
##      Basquetbol             Box          Dibujo      Fotografia          Futbol 
##               3               2               5               2               4 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##               1               3               1               1               2 
##   Tiro con Arco        Voleybol 
##               2               4

Paso 3: Sacmos n= numero de personas, para saber a cuantas personas les hicimos la encuesta en el salon sobre sus preferencias

n = length(actividad)
n
## [1] 38

Paso 4: Sacamos la frecuencia relativa para conocer como se verian los gustos de cada quien expresados de una forma diferente

frec.relativa <- frecuencia / n
frec.relativa
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##      0.05263158      0.05263158      0.05263158      0.02631579      0.02631579 
##      Basquetbol             Box          Dibujo      Fotografia          Futbol 
##      0.07894737      0.05263158      0.13157895      0.05263158      0.10526316 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##      0.02631579      0.07894737      0.02631579      0.02631579      0.05263158 
##   Tiro con Arco        Voleybol 
##      0.05263158      0.10526316

Paso 5: Sacamos la frecuencia porcentual para ver que porciento de la poblacion prefiere que cosa

frec.porc <- frec.relativa * 100
frec.porc
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##        5.263158        5.263158        5.263158        2.631579        2.631579 
##      Basquetbol             Box          Dibujo      Fotografia          Futbol 
##        7.894737        5.263158       13.157895        5.263158       10.526316 
##    Halterofilia        Natación        Oratoria           Pesas       Tahitiano 
##        2.631579        7.894737        2.631579        2.631579        5.263158 
##   Tiro con Arco        Voleybol 
##        5.263158       10.526316

Paso 6: Generamos una tabla para poder visualizar la frecuencia absoluta de manera mas comoda y facil

tablafrecuencia <- transform(frecuencia)
tablafrecuencia
##          actividad Freq
## 1          Ajedrez    2
## 2        Americano    2
## 3        Atletismo    2
## 4            Baile    1
## 5  Banda de Guerra    1
## 6       Basquetbol    3
## 7              Box    2
## 8           Dibujo    5
## 9       Fotografia    2
## 10          Futbol    4
## 11    Halterofilia    1
## 12        Natación    3
## 13        Oratoria    1
## 14           Pesas    1
## 15       Tahitiano    2
## 16   Tiro con Arco    2
## 17        Voleybol    4

Paso 7: Generamos una tabla que nos juntos la frecuencia relativa, la frecuencuia normal y la frecuencia porcentual de cada una de las actividades para asi lograr ver con claridad los datos que requeramos

tablafrecuencia$frec.relativa = frec.relativa
tablafrecuencia$frec.porcentual = frec.porc

tablafrecuencia
##          actividad Freq frec.relativa frec.porcentual
## 1          Ajedrez    2    0.05263158        5.263158
## 2        Americano    2    0.05263158        5.263158
## 3        Atletismo    2    0.05263158        5.263158
## 4            Baile    1    0.02631579        2.631579
## 5  Banda de Guerra    1    0.02631579        2.631579
## 6       Basquetbol    3    0.07894737        7.894737
## 7              Box    2    0.05263158        5.263158
## 8           Dibujo    5    0.13157895       13.157895
## 9       Fotografia    2    0.05263158        5.263158
## 10          Futbol    4    0.10526316       10.526316
## 11    Halterofilia    1    0.02631579        2.631579
## 12        Natación    3    0.07894737        7.894737
## 13        Oratoria    1    0.02631579        2.631579
## 14           Pesas    1    0.02631579        2.631579
## 15       Tahitiano    2    0.05263158        5.263158
## 16   Tiro con Arco    2    0.05263158        5.263158
## 17        Voleybol    4    0.10526316       10.526316

Paso 8: Aqui generamos una grafica de barras para poder visualizar los resultados de una forma mas comoda y visual

barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)

Paso 9: Aqui buscamos el numero maximo de frecuencias o de personas que prefieran una misma actividad

max(tablafrecuencia$Freq)
## [1] 5

Paso 10: Aqui sacamos el valor mas bajo de personas que prefieren una actividad

min(tablafrecuencia$Freq)
## [1] 1

Paso 11: Aqui podemos ver cual es la activdad que mas prefieren las personas

tablafrecuencia[which.max(tablafrecuencia$Freq),]
##   actividad Freq frec.relativa frec.porcentual
## 8    Dibujo    5     0.1315789        13.15789

Paso 12: Aqui podemos ver cual es la activdad que menos prefieren las personas

tablafrecuencia[which.min(tablafrecuencia$Freq),]
##   actividad Freq frec.relativa frec.porcentual
## 4     Baile    1    0.02631579        2.631579

——–

Con la presenta informacion, obtenida tras un analisis descriptivo en donde hicimos una pequeña encuesta interna en el salon 2Y del grupo de Ingenieria en Sistemas computacionales, logramos conocer cuales eran las preferencias de cada alumno en lo que consierna a las actividades fisicas o culturales que estos prefieren, dandonos los siguientes resultados:

La actividad que mas se prefiere sobre las demas es: Dinbujo con una frecuencia de 5 personas

La actividad que menos se prefiere es: Baile con una frecuencia de una persona

Es debido a la gran variedad de los datos y a las distintas preferencias de los alumnos que no se puede establecer una tendencia central sin tanto margen de error por la enorme variacion de los gustos y preferencias de los alumnos, aun asi aunque no se pueda tener una medida de tendencia central concreta podemos darnos cuenta de ciertas actividades que los alumnos prefieren que no estan dentro de las actividades del tecno, por lo que nos podria dar un buen panorama sobre nuevas actividades fisicas o culturales que se podrian incluir para incluir a las mayorias y minorias en base a sus gustos, aumentando asi el numero de personas en actividades extraescolares del tecnologico de Durango.

——–

——–

——–