—————————————–

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

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
n = length(actividad)
n

Determinar la frecuencia relativa

Aqui determinamos la frecuencia relativa correspondiente de este conjunto de datos
frec.relativa <- frecuencia / n
frec.relativa

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

Genera la tabla de frecuencia

Aqui generamos el numero de personas que les gusta esa actividad
tablafrecuencia <- transform(frecuencia)
tablafrecuencia

Nuevas columnas en tablafrecuencia

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

Generar diagrama de barras

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

Mayor y menor frecuecia frecuencia

max(tablafrecuencia$Freq)
min(tablafrecuencia$Freq)

Todas las columnas de tabafrecuencia

tablafrecuencia[which.max(tablafrecuencia$Freq),]

————————————————–

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

———————————————–

———————————————–

———————————————–

———————————————–