Answers
1.)
Sales=c(245,138,352,322,228,275,560,366)
Advertising=c(16.5,18,22.3,17.4,19,20,32,18.6)
Commission=c(10.5,2,4,3.5,4.5,1.8,9,8.5)
data=as.data.frame(cbind(Sales,Advertising,Commission))
model1=lm(Sales~Advertising+Commission, data = data)
dat2=data.frame(Advertising=25,Commission=8)
predict(model1,dat2)
Answer: 424.6849
2.)
summary(model1)
Estimate Std. Error t value Pr(>|t|)
(Intercept) -139.633 111.792 -1.249 0.2669
Advertising 19.069 5.456 3.495 0.0174 *
Commission 10.950 8.062 1.358 0.2325
So advertising is significant at 5% level of significance as p-value for it is less than 5%
.