= Feb 09, 2017 = [[/Attendees]] == Review of Chapter 3 == Played with the advertising data. {{{ d <- read.csv("Advertising.csv") plot(Sales ~ TV, d) m <- lm(Sales ~ TV, d) summary(m) abline(m) matlines(predict(m, newdata=data.frame(TV=0:300), interval="p")) d$x <- log(d$TV) d$y <- log(d$Sales) m <- lm(y ~ x, d) summary(m) plot(y ~ x, d) matlines(log(0:300), predict(m, newdata=data.frame(x=log(0:300)), interval="p")) plot(Sales ~ TV, d) matlines(0:300, exp(predict(m, newdata=data.frame(x=log(0:300)), interval="p"))) }}} Talked about diagnosing model problems. {{{ plot(m) }}} But also, 4-plots and 6-plots as seen in the NIST handbook. == Next Time == * Thursday, March 9, 2017 * Be ready to discuss Chapter 3 of AnIntroductionToStatisticalLearning