# ANOVA no R
library(readxl)
library(reshape2)
library(dplyr)

# Exemplo: Vendas e marcas de tênis ################### 
# leitura e formatacao dos dados 
vendas <- read_excel("anova_aula.xlsx", range = "A10:C16")
vendas2 <- melt(vendas,variable.name = "marca",
                value.name = "vendas") 
vendas2

# ANOVA 
anova.vendas <- aov(vendas ~ marca, data = vendas2)
summary(anova.vendas)

#






# Exemplo: Machucados na cabeca e tipo de carro #################
# leitura e formatacao dos dados 
machucados <- read_excel("anova_aula.xlsx", range = "A26:D32")
machucados2 <- melt(machucados,variable.name = "carro",
                    value.name = "machucados")
machucados2 <- machucados2[complete.cases(machucados2),]
machucados2

# ANOVA 
anova.machucados <- aov(machucados ~ carro, data = machucados2)
summary(anova.machucados)