#### Exercício 7.7.2 - O modelo mais simples possível #Criando o modelo anim.m2 <- lm(log(brain)~log(body),data=Animals, subset=!(log(Animals$body)>8&log(Animals$brain)<6)) #Criando o modelo nulo anim.m0 <- lm(log(brain)~1, data=Animals, subset=!(log(Animals$body)>8&log(Animals$brain)<6)) #Comparando modelos anova(anim.m0,anim.m2) # 1. Qual a relação do comando 'anova' acima com: #anova(anim.m2) anova(anim.m2) #Pode-se dizer que o segundo comando está contido no primeiro comando. Todos os valores mostrados pelo segundo comando #também estão presentes no primeiro, o qual, adicionalmente, compara os dois diferentes modelos com base na #soma quadrática dos residuais (RSS) e seleciona aquele modelo com menor RSS. # 2. Qual a relação entre os valores obtidos por estes comandos: #summary(anim.m0) #mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)])) #sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)])) summary(anim.m0) mean(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)])) sd(log(Animals$brain[!(log(Animals$body)>8&log(Animals$brain)<6)])) #O segundo e terceiro comandos estão contidos no primeiro (summary), #sendo que o segundo comando correspondem ao valores do intercepto e o terceiro ao valor do erro padrão residual.