Merge pull request DataScienceSpecialization#25 from bcaffo/master

Worked on several lectures in the data products directory
wporterjr · May 6, 2014 · e44f504 · e44f504
2 parents 09b7154 + 12f895e
commit e44f504
Show file tree

Hide file tree

Showing 588 changed files with 23,149 additions and 1,752 deletions.
diff --git a/06_StatisticalInference/03_05_MultipleTesting/fig/datasources.png b/06_StatisticalInference/03_05_MultipleTesting/fig/datasources.png
diff --git a/06_StatisticalInference/03_05_MultipleTesting/fig/example10pvals.png b/06_StatisticalInference/03_05_MultipleTesting/fig/example10pvals.png
diff --git a/06_StatisticalInference/03_05_MultipleTesting/fig/jellybeans1.png b/06_StatisticalInference/03_05_MultipleTesting/fig/jellybeans1.png
diff --git a/06_StatisticalInference/03_05_MultipleTesting/fig/jellybeans2.png b/06_StatisticalInference/03_05_MultipleTesting/fig/jellybeans2.png
diff --git a/06_StatisticalInference/03_05_MultipleTesting/fig/significant.png b/06_StatisticalInference/03_05_MultipleTesting/fig/significant.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-1.png b/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-1.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-5.png b/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-5.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-7.png b/07_RegressionModels/02_02_multivariateExamples/assets/fig/unnamed-chunk-7.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/lmBothChunk.png b/07_RegressionModels/02_02_multivariateExamples/fig/lmBothChunk.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-14.png b/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-14.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-15.png b/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-15.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-16.png b/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-16.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-17.png b/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-17.png
diff --git a/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-18.png b/07_RegressionModels/02_02_multivariateExamples/fig/unnamed-chunk-18.png
diff --git a/07_RegressionModels/productionLectures/fig/freqGalton.png b/07_RegressionModels/productionLectures/fig/freqGalton.png
diff --git a/07_RegressionModels/productionLectures/fig/lsm.png b/07_RegressionModels/productionLectures/fig/lsm.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-2.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-2.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-3.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-3.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-4.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-4.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-5.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-5.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-6.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-6.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-7.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-7.png
diff --git a/07_RegressionModels/productionLectures/fig/unnamed-chunk-9.png b/07_RegressionModels/productionLectures/fig/unnamed-chunk-9.png
diff --git a/07_RegressionModels/productionLectures/figure/freqGalton.png b/07_RegressionModels/productionLectures/figure/freqGalton.png
diff --git a/09_DevelopingDataProducts/manipulate/index.Rmd b/09_DevelopingDataProducts/manipulate/index.Rmd
@@ -23,7 +23,7 @@ mode        : selfcontained # {standalone, draft}
 ---
 ## Documentation
 - Manipulate is well documented at the Rstudio web site here
-  - (http://www.rstudio.com/ide/docs/advanced/manipulate)
+  - http://www.rstudio.com/ide/docs/advanced/manipulate
 - From there, try this
 ```
 library(manipulate)
@@ -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))
 ```
 
diff --git a/09_DevelopingDataProducts/manipulate/index.html b/09_DevelopingDataProducts/manipulate/index.html
@@ -71,7 +71,7 @@ <h2>Documentation</h2>
 <li>Manipulate is well documented at the Rstudio web site here
 
 <ul>
-<li>(<a href="http://www.rstudio.com/ide/docs/advanced/manipulate">http://www.rstudio.com/ide/docs/advanced/manipulate</a>)</li>
+<li><a href="http://www.rstudio.com/ide/docs/advanced/manipulate">http://www.rstudio.com/ide/docs/advanced/manipulate</a></li>
 </ul></li>
 <li>From there, try this
 <code>
@@ -90,15 +90,15 @@ <h2>Documentation</h2>
     <h2>Example from the regression class</h2>
   </hgroup>
   <article data-timings="">
-    <pre><code>freqData &lt;- as.data.frame(table(galton$child, galton$parent))
-names(freqData) &lt;- c(&quot;child&quot;, &quot;parent&quot;, &quot;freq&quot;)
-plot(as.numeric(as.vector(freqData$parent)), 
-     as.numeric(as.vector(freqData$child)),
-     pch = 21, col = &quot;black&quot;, bg = &quot;lightblue&quot;,
-     cex = .05 * freqData$freq, 
-     xlab = &quot;parent&quot;, ylab = &quot;child&quot;)
-lm1 &lt;- lm(galton$child ~ galton$parent)
-lines(galton$parent,lm1$fitted,col=&quot;red&quot;,lwd=3)
+    <pre><code>library(manipulate)
+myHist &lt;- function(mu){
+  hist(galton$child,col=&quot;blue&quot;,breaks=100)
+  lines(c(mu, mu), c(0, 150),col=&quot;red&quot;,lwd=5)
+  mse &lt;- mean((galton$child - mu)^2)
+  text(63, 150, paste(&quot;mu = &quot;, mu))
+  text(63, 140, paste(&quot;MSE = &quot;, round(mse, 2)))
+}
+manipulate(myHist(mu), mu = slider(62, 74, step = 0.5))
 </code></pre>
 
   </article>

diff --git a/09_DevelopingDataProducts/manipulate/index.md b/09_DevelopingDataProducts/manipulate/index.md
@@ -23,7 +23,7 @@ mode        : selfcontained # {standalone, draft}
 ---
 ## Documentation
 - Manipulate is well documented at the Rstudio web site here
-  - (http://www.rstudio.com/ide/docs/advanced/manipulate)
+  - http://www.rstudio.com/ide/docs/advanced/manipulate
 - From there, try this
 ```
 library(manipulate)
@@ -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))
 ```