# question 1 lm.fit1 <- ... # Advertising lm.fit2 <- ... # Age lm.fit3 <- ... # CompPrice lm.fit4 <- ... # Education lm.fit5 <- ... # Income lm.fit6 <- ... # Population lm.fit7 <- ... # Price p.values <- rep(0,7) p.values[1] <- summary(lm.fit1)$coefficients[2,4] p.values[2] <- summary(lm.fit2)$coefficients[2,4] p.values[3] <- summary(lm.fit3)$coefficients[2,4] p.values[4] <- summary(lm.fit4)$coefficients[2,4] p.values[5] <- summary(lm.fit5)$coefficients[2,4] p.values[6] <- summary(lm.fit6)$coefficients[2,4] p.values[7] <- summary(lm.fit7)$coefficients[2,4]