Estatistica R
(Intercept) 12.6718209 41.722374
Trans -0.3957587 1.543244
> anova(rsimples)
Analysis of Variance Table Response: Desp Df Sum Sq Mean Sq F value Pr(>F)
Trans 1 390.1 390.15 1.4695 0.2356
Residuals 28 7433.9 265.49
PARTE I a) Determine a equação de regressão Desp = f(Trans) Y= 27,20+0,57 Trans
b) O poder de Trans. em explicar a Desp.é :
4,98%
c) O coeficiente linear da reta é 27,20 e seu coeficiente angular é 0,57.
d) A interpretação do coeficiente angular é: A acréscimo de um Trans, a Desp aumenta em R$ 0,57 e) A reta de regressão Desp= 27,20+0,57 Trans é adequada porque o valor –P do teste F é menor que 5%.
( ) Falso ( X ) Verdadeiro
f) O intervalo com 95% de confiança para β1 é :
-0.3957587 a 1.543244 g) A estimativa da Despesa para R$15 de transporte é:
27,20+15*0,57= 24,05 h) Justifique porque a hipótese nula Ho:β1 = 0 é rejeitada.
O valor P(0,2356) do teste na tabela ANOVA possui valor abaixo de 5%.
i) O coeficiente de determinação do modelo 1 é 4,98 e o coeficiente de correlação entre Des e Trans é 1,47. j) O valor F foi obtido dividindo 0,2356 por 265,49. k) A estatística t para Trans foi 1,212 e informa que esta variável contribui para explicar as Desp de forma não significativa. ( X ) Falso ( ) Verdadeiro. Falso porque o Valor-p do teste t está abaixo de 5%.
Tabela 2 Desp = βo + β1Trans + β2 Alim + ε Custo anova(rmultipla)
Analysis of Variance Table Response: Desp Df Sum Sq Mean Sq F value Pr(>F)
Trans 1 390.1 390.15 1.4254 0.2429
Alim 1 43.6 43.57 0.1592 0.6931
Residuals 27 7390.3 273.71