










Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Os melhores documentos à venda: Trabalhos de alunos formados
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Comunidade
Peça ajuda à comunidade e tire suas dúvidas relacionadas ao estudo
Descubra as melhores universidades em seu país de acordo com os usuários da Docsity
Guias grátis
Baixe gratuitamente nossos guias de estudo, métodos para diminuir a ansiedade, dicas de TCC preparadas pelos professores da Docsity
Apostila de estatistica aplicada
Tipologia: Exercícios
1 / 18
Esta página não é visível na pré-visualização
Não perca as partes importantes!
Departamento de Estatística
Luiz Medeiros
Análise de Variância – Parte 2
..
i.
i
..
i.
i
i^
ij ij ij^
ˆy y e^
i. i
ij^
T
T
(HSD)
^
É um dos testes de comparação de média mais utilizado, por serbastante rigoroso e de fácil aplicação; ^
É um teste exato em que, para
a família de todas as
comparações
duas a duas, a taxa de erro da família dos testes é exatamente α (e ointervalo de confiança é exatamente 1-α). Métodos de comparações múltiplas
exatos
são
raros
;
múltiplas
exatos
são
raros
;
^
Não permite comparar grupos de tratamentos entre si; ^
É utilizado para testar toda e qualquer diferença entre duas médiasde tratamento; ^
É aplicado quando o teste “F” para tratamentos da ANOVA (análisede variância) for significativo.
T
T
(HSD)
^
O teste de Tukey tem como base a DMS (diferença mínima significativa). Para dadosbalanceados é calculado da seguinte forma: Em que n
é o número de réplicas do tratamento (nível),
q
é um valor tabeladoα
(Tabela
do
Teste
de
Tukey
)^ e
QMErro
é^
o^ quadrado
médio
do
erro
.
n QMErro g N g q
DMS
)
, (^
−
=
α
(Tabela
do
Teste
de
Tukey
)^ e
QMErro
é^
o^ quadrado
médio
do
erro
.
^
Rejeita-se a igualdade da média de dois tratamentos (
i^ e l ) se:
^
Um intervalo de confiança de 100(1-
α)%
para a diferença entre todos os pares de
médias é dado por:
.
.^
l
i^
n QMErro g N g q y y^
l i^
)
, ( .
.^
−
± −
α
Tabela da análise de variância dos valores de absorbância. Causas devariação
Soma dequadrados
Graus deliberdade
Quadradosmédios
Fcalc
Entresolventes
0,
4
0,
212,806(P<0,0001)
Erro
0,
127
20
0,
06
F^
=4,
Erro
0,
127
20
0,
06
Total
0,
24
F(0,01;4;20)
=4,
Rejeita-se H
, e concluímos que as médias de tratamentos diferem entre si; os 0
solventes afetam significativamente as médias de absorbância.
E70 = 0,
A
EAW = 0,
A^
B
E50 = 0,
B
MAW = 0,
C
M1M = 0,
D
Médias
seguidas
de
mesma
letra,
em
uma
mesma
coluna,
não
Médias
seguidas
de
mesma
letra,
em
uma
mesma
coluna,
não
apresentam diferenças significantes, ao nível de significância de 5%,pelo teste de Tukey. Conclusão:
pelo teste de Tukey, ao nível de significância de 5%, as médias
dos tratamentos E50 e EAW, assim como as médias dos tratamentos EAW eE70 não apresentam diferenças significantes. As médias dos tratamentosE50 e E70 apresentam diferença significante. As médias dos tratamentosMAW e M1M apresentam diferença significativa de todos os tratamentos.
EXEMPLO
: 3
GRUPOS DE CRIANÇAS RECEBERAM DIFERENTES
NÍVIES DE MOTIVAÇÃO PARA A MATEMÁTICA
. D
EPOIS SE FEZ UM
EXAME
. H
Á DIFERENÇAS SIGNIFICATIVAS ENTRE OS
3 NÍVEIS DE
MOTIVAÇÃO
(BAIXA
,^ MÉDIA E ALTA
)?
Grupo 1
Grupo 2
Grupo 3
4
16
12
144
1
1
5
25
8
64
3
9
4
16
10
100
4
16
4
16
10
100
4
16
3
9
5
25
6
36
6
36
7
49
8
64
10
100
9
81
5
25
1
1
14
196
3
9
8
64
9
81
2
4
5
25
4
16
2
4
X^1
X^1
2
X^2
X^2
2
X^3
X^3
2
Média = 5,
Média = 8,
Média = 3,
^
^
^
^
E
2
ex2 <- read.csv("banco1.txt",header=T,dec=".",sep="") ## ler o bancoattach(ex2)names (ex2)boxplot(nm ~ trat, data = ex2, col = "red") # gerar o boxplot entre count e sprayanava <- aov(nm~trat,data=ex2) # gerar a anovasummary(anava) # resultado da anova ep^
= as.vector(rstandard(anava)) shapiro.test(ep) # teste de normalidadedwtest(anava) # teste de independência - Durbin Watsonbartlett.test(nm ~ trat, data = ex2) # teste de homocedasticidadeTukey <- TukeyHSD(anava,wich="trat", ordered = F,conf.level = 0.95) # gerar o teste de TukeyTukey # resultado do testeplot(Tukey) # gerar IC das diferenças
E
3
x <- rchisq(10, df = 9)y<- rgamma(10, 10, 2)z<- rbeta(10, 1, 2)vr<-c(x,y,z)tr<-c(rep(1,10),rep(2,10),rep(3,10))ex3<-cbind(vr,tr) ex3 # ver o banco de dadosex3 # ver o banco de dados boxplot(vr ~ tr, col = "red") # gerar o boxplotanava <- aov(vr~tr) # gerar a anovasummary(anava) # resultado da anovaep^
= as.vector(rstandard(anava)) shapiro.test(ep) # teste de normalidadedwtest(anava) # teste de independência - Durbin Watsonbartlett.test(vr ~ tr) # teste de homocedasticidade