Update index.Rmd

Not sure why this was deleted.
bcaffo · Aug 17, 2015 · f5389a2 · f5389a2
1 parent e924dcb
commit f5389a2
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/07_RegressionModels/01_07_inference/index.Rmd b/07_RegressionModels/01_07_inference/index.Rmd
@@ -157,8 +157,15 @@ g
 ---
 
 ## In R
+```{r, fig.height=5, fig.width=5, echo=FALSE,results='hide'}
+newdata <- data.frame(x = xVals)
+p1 <- predict(fit, newdata, interval = ("confidence"))
+p2 <- predict(fit, newdata, interval = ("prediction"))
+plot(x, y, frame=FALSE,xlab="Carat",ylab="Dollars",pch=21,col="black", bg="lightblue", cex=2)
+abline(fit, lwd = 2)
+lines(xVals, p1[,2]); lines(xVals, p1[,3])
+lines(xVals, p2[,2]); lines(xVals, p2[,3])
 ```
-