#
# Neste "script":
# Teste de médias, duas amostras independentes, Ex. 2 (teste t)
# Teste de médias, duas amostras dependentes (aos pares), Ex. 3 (teste t)
# Teste de duas variâncias, Ex. 2 (teste F)
# 
#************************************************************************
# Exemplo 2 *************************************************************
dados2 <- read.table("AulaTesteHipoteses_02_2.csv",header=TRUE,sep=";")
dados2
summary(dados2)
#
# Média (mean) de desvio padrão (sd) por grupos -------------------------
tapply(dados2$Volume,dados2$Prateleira,mean)
tapply(dados2$Volume,dados2$Prateleira,sd)
#
# Boxplot ---------------------------------------------------------------
boxplot(dados2$Volume~dados2$Prateleira)
#
# Teste de médias amostras independentes, --------------- (teste t) -----
# assumindo variâcias iguais
t.test(dados2$Volume~dados2$Prateleira, var.equal=T)
#
# Teste F para comparar duas variâncias ----------------- (teste F) -----
var.test(dados2$Volume~dados2$Prateleira)
#
#************************************************************************
# Exemplo 3 *************************************************************
dados3 <- read.table("AulaTesteHipoteses_02_3.csv",header=TRUE,sep=";")
summary(dados3)
#
# Média (mean) de desvio padrão (sd) por variável -----------------------
mean(dados3$Marca.A)
sd(dados3$Marca.A)
mean(dados3$Marca.B)
sd(dados3$Marca.B)
#
# Boxplot ---------------------------------------------------------------
par(mfrow=c(1,2))
ylim <- range(19,28)
boxplot(dados3$Marca.A,xlab="Marca A",ylim=ylim)
boxplot(dados3$Marca.B,xlab="Marca B",ylim=ylim)
par(mfrow=c(1,1))
#
# Teste de médias amostras dependentes, aos pares ------- (teste t) -----
t.test(dados3$Marca.A,dados3$Marca.B, paired=T)
#