Run the following code: ----------------------------------------------------------- data("USConsump1993") consump <- as.data.frame(USConsump1993) consump$investment <- consump$income - consump$expenditure consump$Lincome <- log(consump$income) consump$Lexpenditure <- log(consump$expenditure) consump$Linvestment <- log(consump$investment) income <- consump$Lincome N <- length(income) income1 <- as.numeric(income[-1]) income2 <- as.numeric(income[-N]) regz <- lm(income1 ~ income2) summary(regz) ----------------------------------------------------------- What kind of model is regz estimating? a. Autoregressive Model b. None of these c. Linear Probability Model d. Panel Model e. Multiple Regression Model