Crea los registros de una muestra de 48 alumnos de sus actividades extracurriculares.

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', 'Fotografía', 'Basquetbol', 'Dibujo',
               'Ajedrez', 'Dibujo', 'Fotografía', 'Voleybol','Halterofilia',
               'Atletismo', 'Basquetbol', 'Dibujo', 'Box', 'Atletismo', 
               'Dibujo', 'Ajedrez', 'Esports', 'Tiro con Arco', 'Orquesta', 'Esports',
               'Orquesta', 'Fotografía', 'Voleybol', 'Futbol', 'Ajedrez', 'Esports')

Muestra los registros de las actividades extraescolares.

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"           "Fotografía"     
## [25] "Basquetbol"      "Dibujo"          "Ajedrez"         "Dibujo"         
## [29] "Fotografía"      "Voleybol"        "Halterofilia"    "Atletismo"      
## [33] "Basquetbol"      "Dibujo"          "Box"             "Atletismo"      
## [37] "Dibujo"          "Ajedrez"         "Esports"         "Tiro con Arco"  
## [41] "Orquesta"        "Esports"         "Orquesta"        "Fotografía"     
## [45] "Voleybol"        "Futbol"          "Ajedrez"         "Esports"

Crea una tabla de frecuencias que muestra qué tantas veces se repite una actividad extrescolar y luego la muestra.

frecactividad <- table(actividad)
frecactividad
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##               3               2               2               1               1 
##      Basquetbol             Box          Dibujo         Esports      Fotografía 
##               3               2               5               3               3 
##          Futbol    Halterofilia        Natación        Oratoria        Orquesta 
##               5               1               3               1               2 
##           Pesas       Tahitiano   Tiro con Arco        Voleybol 
##               1               2               3               5

Determina la cantidad de registros de la tabla y luego muestra dicha cantidad.

regis <- length(actividad)
regis
## [1] 48

Determina la frecuencia relativa de cada actividad y luego la muestra.

frec_relativa <- frecactividad / regis
frec_relativa
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##      0.06250000      0.04166667      0.04166667      0.02083333      0.02083333 
##      Basquetbol             Box          Dibujo         Esports      Fotografía 
##      0.06250000      0.04166667      0.10416667      0.06250000      0.06250000 
##          Futbol    Halterofilia        Natación        Oratoria        Orquesta 
##      0.10416667      0.02083333      0.06250000      0.02083333      0.04166667 
##           Pesas       Tahitiano   Tiro con Arco        Voleybol 
##      0.02083333      0.04166667      0.06250000      0.10416667

Determina la frecuencia porcentual de cada actividad y luego la muestra.

frec_porcentual <- frec_relativa*100
frec_porcentual
## actividad
##         Ajedrez       Americano       Atletismo           Baile Banda de Guerra 
##        6.250000        4.166667        4.166667        2.083333        2.083333 
##      Basquetbol             Box          Dibujo         Esports      Fotografía 
##        6.250000        4.166667       10.416667        6.250000        6.250000 
##          Futbol    Halterofilia        Natación        Oratoria        Orquesta 
##       10.416667        2.083333        6.250000        2.083333        4.166667 
##           Pesas       Tahitiano   Tiro con Arco        Voleybol 
##        2.083333        4.166667        6.250000       10.416667

Crea otra tabla de frecuencias, pero esta vez de forma vertical.

frecactividadv <- transform(frecactividad)
frecactividadv
##          actividad Freq
## 1          Ajedrez    3
## 2        Americano    2
## 3        Atletismo    2
## 4            Baile    1
## 5  Banda de Guerra    1
## 6       Basquetbol    3
## 7              Box    2
## 8           Dibujo    5
## 9          Esports    3
## 10      Fotografía    3
## 11          Futbol    5
## 12    Halterofilia    1
## 13        Natación    3
## 14        Oratoria    1
## 15        Orquesta    2
## 16           Pesas    1
## 17       Tahitiano    2
## 18   Tiro con Arco    3
## 19        Voleybol    5

Crea una tabla con más columnas de forma detallada.

frecactividadv$Frecuencia_relativa = frec_relativa
frecactividadv$Frecuencia_porcentual = frec_porcentual
frecactividadv
##          actividad Freq Frecuencia_relativa Frecuencia_porcentual
## 1          Ajedrez    3          0.06250000              6.250000
## 2        Americano    2          0.04166667              4.166667
## 3        Atletismo    2          0.04166667              4.166667
## 4            Baile    1          0.02083333              2.083333
## 5  Banda de Guerra    1          0.02083333              2.083333
## 6       Basquetbol    3          0.06250000              6.250000
## 7              Box    2          0.04166667              4.166667
## 8           Dibujo    5          0.10416667             10.416667
## 9          Esports    3          0.06250000              6.250000
## 10      Fotografía    3          0.06250000              6.250000
## 11          Futbol    5          0.10416667             10.416667
## 12    Halterofilia    1          0.02083333              2.083333
## 13        Natación    3          0.06250000              6.250000
## 14        Oratoria    1          0.02083333              2.083333
## 15        Orquesta    2          0.04166667              4.166667
## 16           Pesas    1          0.02083333              2.083333
## 17       Tahitiano    2          0.04166667              4.166667
## 18   Tiro con Arco    3          0.06250000              6.250000
## 19        Voleybol    5          0.10416667             10.416667

Muestra la frecuencia máxima de la tabla.

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

Muestra la frecuencia mínima de la tabla.

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

Crea una gráfica en base a las actividades y sus frecuencias de forma individual.

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

Descripción de la práctica

En esta práctica se realizó un análisis tanto cualitativo como cuantitativo de los datos proporcionados por una muestra de 48 estudiantes, referentes a las actividades culturales o deportivas que llevan a cabo de forma extracurricular dentro del Instituto Tecnológico de Durango.
Al realizar este trabajo, se pusieron en práctica conceptos base de la materia de Probabilidad y Estadística, y se amplicaron en forma de conocimientos y comandos básicos del lenguaje R y de el entorno de desarrollo RStudio. Dicha práctica enriqueció la experiencia del estudiante en el uso básico y fundamental de la herramienta de RStudio, los cuales serán indispensables para el desarrollo y eventual avance de la materia dentro de la carrera de Ingeniería en Sistemas Computacionales.