Some small edits

Deleted a pdf file, and made some small edits to data products files

09_DevelopingDataProducts/manipulate/index.Rmd

@@ -34,14 +34,14 @@ manipulate(plot(1:x), x = slider(1, 100))
 ---
 ## Example from the regression class
 ```
-freqData <- as.data.frame(table(galton$child, galton$parent))
-names(freqData) <- c("child", "parent", "freq")
-plot(as.numeric(as.vector(freqData$parent)), 
-     as.numeric(as.vector(freqData$child)),
-     pch = 21, col = "black", bg = "lightblue",
-     cex = .05 * freqData$freq, 
-     xlab = "parent", ylab = "child")
-lm1 <- lm(galton$child ~ galton$parent)
-lines(galton$parent,lm1$fitted,col="red",lwd=3)
+library(manipulate)
+myHist <- function(mu){
+  hist(galton$child,col="blue",breaks=100)
+  lines(c(mu, mu), c(0, 150),col="red",lwd=5)
+  mse <- mean((galton$child - mu)^2)
+  text(63, 150, paste("mu = ", mu))
+  text(63, 140, paste("MSE = ", round(mse, 2)))
+}
+manipulate(myHist(mu), mu = slider(62, 74, step = 0.5))
 ```
 

09_DevelopingDataProducts/shiny/index.Rmd

@@ -126,7 +126,7 @@ shinyUI(pageWithSidebar(
 ```
 
 ---
-![markup](fig/markup.png 'Marup in ui.R')
+![markup](fig/markup.png 'Markup in ui.R')
 
 
 ---