From f5389a2832976ff0d881e09ed40e1f8c6a248caf Mon Sep 17 00:00:00 2001
From: Brian Caffo <bcaffo@users.noreply.github.com>
Date: Mon, 17 Aug 2015 11:25:46 -0400
Subject: [PATCH] Update index.Rmd

Not sure why this was deleted.
---
 07_RegressionModels/01_07_inference/index.Rmd | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/07_RegressionModels/01_07_inference/index.Rmd b/07_RegressionModels/01_07_inference/index.Rmd
index c03364394..9897dfe59 100644
--- 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])
 ```
-