—————————————–
19041231 Osiris Ochoa Solis
19041239 Elias Jr. Ramos Lopez
19041216 Frida Krystel Herrera Hernández
19041198 Marco Daniel De La Torre Mendia
—————————————–
Preferencias del grupo acerca de las actividades culturales y deportivas
# 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',
'Oratoria', 'Tahitiano', 'Box', 'Futbol', 'Voleybol',
'Natación', 'Pesas', 'Fotografía', '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" "Fotografía"
## [25] "Basquetbol" "Dibujo" "Ajedrez" "Dibujo"
## [29] "Fotografia" "Voleybol" "Halterofilia" "Atletismo"
## [33] "Basquetbol" "Dibujo" "Box" "Atletismo"
## [37] "Dibujo" "Ajedrez"
Determinar frecuencia y valor de n
Aqui determinamos cual es el numero de las personas que participaron en la encuesta, ademas aqui podemos ver la cantidad de las personas que votaron por actividad
frecuencia <- table(actividad)
frecuencia
## actividad
## Ajedrez Americano Atletismo Baile Banda de Guerra
## 2 2 2 1 1
## Basquetbol Box Dibujo Fotografia Fotografía
## 3 2 5 1 1
## Futbol Halterofilia Natación Oratoria Pesas
## 4 1 3 1 1
## Tahitiano Tiro con Arco Voleybol
## 2 2 4
n = length(actividad)
n
## [1] 38
Determinar la frecuencia relativa
Aqui determinamos la frecuencia relativa correspondiente de este conjunto de datos
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 Fotografía
## 0.07894737 0.05263158 0.13157895 0.02631579 0.02631579
## Futbol Halterofilia Natación Oratoria Pesas
## 0.10526316 0.02631579 0.07894737 0.02631579 0.02631579
## Tahitiano Tiro con Arco Voleybol
## 0.05263158 0.05263158 0.10526316
Determinar la frecuencia porcenual
Lo hacemos para poder conocer el porcentaje de gustos de cada actividad para poder notar las preferencias del grupo
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 Fotografía
## 7.894737 5.263158 13.157895 2.631579 2.631579
## Futbol Halterofilia Natación Oratoria Pesas
## 10.526316 2.631579 7.894737 2.631579 2.631579
## Tahitiano Tiro con Arco Voleybol
## 5.263158 5.263158 10.526316
Genera la tabla de frecuencia
Aqui generamos el numero de personas que les gusta esa actividad
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 1
## 10 Fotografía 1
## 11 Futbol 4
## 12 Halterofilia 1
## 13 Natación 3
## 14 Oratoria 1
## 15 Pesas 1
## 16 Tahitiano 2
## 17 Tiro con Arco 2
## 18 Voleybol 4
Nuevas columnas en tablafrecuencia
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 1 0.02631579 2.631579
## 10 Fotografía 1 0.02631579 2.631579
## 11 Futbol 4 0.10526316 10.526316
## 12 Halterofilia 1 0.02631579 2.631579
## 13 Natación 3 0.07894737 7.894737
## 14 Oratoria 1 0.02631579 2.631579
## 15 Pesas 1 0.02631579 2.631579
## 16 Tahitiano 2 0.05263158 5.263158
## 17 Tiro con Arco 2 0.05263158 5.263158
## 18 Voleybol 4 0.10526316 10.526316
Generar diagrama de barras
barplot(tablafrecuencia$Freq, names.arg = tablafrecuencia$actividad)
Mayor y menor frecuecia frecuencia
max(tablafrecuencia$Freq)
## [1] 5
min(tablafrecuencia$Freq)
## [1] 1
Todas las columnas de tabafrecuencia
tablafrecuencia[which.max(tablafrecuencia$Freq),]
## actividad Freq frec.relativa frec.porcentual
## 8 Dibujo 5 0.1315789 13.15789
————————————————–
INTERPRETACION DE LOS DATOS:
Para esta practica utilziamos un tipo de analisis descriptivo ya que sacamos la fercuencia relativa y la frecuenciaporcentual para descubrir cuales osn las preferencias del grupo los resultados que se dieron:
La actividad que mas se prefiere fue el dibujo
las actividades que menos se prefieren son : Baile, Banda de guerra, Alterofilia y pesas.
Debido a la cantidad de alumnos y a la variedad de activudades culturales y fiisicas no se podria determinar cual es la preferencia de el grupo hacia una actividad ya que hay una gran variacion de que no permite darnos cuenta de una atividad preferente en todo el grupo ya que cada uno posee distintas a las de de los demas
———————————————–
———————————————–
———————————————–
———————————————–