vida

Métodos Quantitativos
Lista de exercícios 1.1
Prof. MSc. João Vinícius de França Carvalho
ATENÇÃO: não é preciso entregar.

Exercício 1:
Plantam-se três tipos diferentes tipos de sementes para a produção de um tipo de café gourmet. Serão utilizados cinco tipos de terreno. É sabido que a intensidade é a métrica relevante de qualidade e, em uma escala de zero a vinte, tem-se os dados da Tabela 1.
Tabela 1 - Intensidade dos tipos de café por terreno produzido.
Terreno
Café

Dulsão
Indriya
Rosabaya
A
10
15
14
B
12
19
11
C
15
18
12
D
12
16
16
E
11
17
14

(a) Para cada variável qualitativa, obtenha as estatísticas descritivas da intensidade.

> numSummary(ex1[,"Intensidade"], groups=ex1$Terreno, statistics=c("mean", "sd", "IQR", "quantiles"), quantiles=c(0,.25,.5,.75,1)) mean sd IQR 0% 25% 50% 75% 100% data:n
A 12 NA 0 12 12 12 12 12 1
B 15 NA 0 15 15 15 15 15 1
C 12 NA 0 12 12 12 12 12 1
D 11 NA 0 11 11 11 11 11 1
E 15 NA 0 15 15 15 15 15 1

> numSummary(ex1[,"Intensidade"], groups=ex1$Tipo, statistics=c("mean", "sd", "IQR", "quantiles"), quantiles=c(0,.25,.5,.75,1)) mean sd IQR 0% 25% 50% 75% 100% data:n
Dulsão 12.0 1.870829 1 10 11 12 12 15 5
Indriya 17.0 1.581139 2 15 16 17 18 19 5
Rosabaya 13.4 1.949359 2 11 12 14 14 16 5

(b) Formule esse problema como um problema de teste de hipóteses. Interprete.
H0: 'Mi'D='Mi'I='Mi'R (Todos os grupos tem o mesmo grau de qualidade)
HA: há pelo menos um grupo que difere dos demais.

(c) Faça o teste de hipóteses. Quais as suas conclusões?
> leveneTest(Intensidade ~ Tipo, data=ex1, center="median")
Levene's Test for Homogeneity of Variance (center = "median") Df F value Pr(>F) group 2 0.0476 0.9537
Aceitar Teste de Levene – variâncias são iguais. Agora, testar médias.

Teste anova (one way):

> summary(AnovaModel.1) Df