En este documentos .rmd tiene lo beasico para comenzar el ejercicio.

Superheroes y Lesiones

Los datos representa la gravedad de lesiones que tienen niños que se disfrazan de su superheroes favorito y después llegan a un hospital por alguna lesión. Los niños son categorizados con un nivel gravedad de lesión, más alto el valor más serio era la lesión. Los datos provienen de Field et al. 

Subir los datos de Superhero.csv

library(readr)
Superhero <- read_csv("Data_files_csv/Superhero.csv")

head(Superhero)
## # A tibble: 6 × 2
##    hero injury
##   <dbl>  <dbl>
## 1     1     51
## 2     1     31
## 3     1     58
## 4     1     20
## 5     1     47
## 6     1     37
unique(Superhero$heronames)
## NULL

Renombrar los nombres de las categorías para los tipos de Superheroes. En el archivo como están identificados las categorías de superheroes?

#Superhero
Superhero$heronames<-factor(Superhero$hero, levels = c(1:4), 
     labels = c("Spiderman","Superman", "Hulk", "Ninja Turtle"))
Superhero
## # A tibble: 30 × 3
##     hero injury heronames
##    <dbl>  <dbl> <fct>    
##  1     1     51 Spiderman
##  2     1     31 Spiderman
##  3     1     58 Spiderman
##  4     1     20 Spiderman
##  5     1     47 Spiderman
##  6     1     37 Spiderman
##  7     1     49 Spiderman
##  8     1     40 Spiderman
##  9     2     69 Superman 
## 10     2     32 Superman 
## # ℹ 20 more rows
names(Superhero)
## [1] "hero"      "injury"    "heronames"

La preguntas

Contestar cada una de las siguientes preguntas.

  1. Evaluar la distribución de los datos de respuestas (los en Y)
  2. Evaluar la homogeneidad de varianza
  3. Visualizar los datos Puntos y promedios y intervalo de confianza
  4. Hacer la prueba de ANOVA con aov()
  5. Evaluar la figura de residuales
  6. Evaluar la gráfica de qq, para la normalidad
  7. Hacer la prueba de post-hoc si es necesario!!!!!