# Álgebra Matricial Aplicada à Estatística # Instale o R a partir de www.r-project.org # Utilize um editor de R, preferencialmente o https://www.rstudio.com/ # Deseja-se explicar o consumo de combustível para 48 estados norte-americanos # em 1971, com as seguintes variáveis explicativas # X1 o imposto sobre combustível (centavos de dólar/galão), # X2 o percentual da população com carteira de habilitação, # X3 renda per capita (milhares de dólares) e # X4 a quantidade de estradas federais pavimentadas (em milhares de milhas). # A variável resposta é o consumo de combustível Y (galões por pessoa). # Um galão equivale a 3,785 litros. (Weisberg, S. 1985. Applied Linear Regression, Wiley). library(MASS) # Leitura dos dados combustivel <- read.table("http://wiki.icmc.usp.br/images/b/bc/Combustivel.txt", header=T) attach(combustivel) names(combustivel) # Definindo a matriz X X <- cbind(1,X1,X2,X3,X4) t(X) %*% X solve(t(X) %*% X) # Ajustando o modelo linear com a suposição de erros independentes beta.hat <- solve(t(X) %*% X) %*% t(X) %*% Y beta.hat