append ch10 to regression strips app

gastonstat · Apr 30, 2016 · bcd8280 · bcd8280
1 parent 132c435
commit bcd8280
Show file tree

Hide file tree

Showing 5 changed files with 17 additions and 5 deletions.
diff --git a/regression-strips/Galton.csv → ch10-regression-strips/Galton.csv b/regression-strips/Galton.csv → ch10-regression-strips/Galton.csv
diff --git a/regression-strips/README.md → ch10-regression-strips/README.md b/regression-strips/README.md → ch10-regression-strips/README.md
@@ -1,19 +1,22 @@
 # Vertical Strips for Galton's Height data
 
-This is a Shiny app that generates a scatter diagram to illustrate the distribution of values on the y-axis within a vertical strip.
+This is a Shiny app that generates a scatter diagram to illustrate the 
+distribution of values on the y-axis within a vertical strip.
 
 
 ## Motivation
 
-The goal is to provide a visual display of some of the concepts from __Statistics, Chapter 10: Regression__ (pages 158-165):
+The goal is to provide a visual display of some of the concepts from 
+__Statistics, Chapter 10: Regression__ (pages 158-165):
 
 - Point of averages
 - SD line
 - Graph of averages
 - Regression line
 - Correlation coefficient
 
-Reference: "Statistics" by David Freedman, Robert Pisani and Roger Purves (2007). Fourth Edition. Norton & Company.
+Reference: "Statistics" by David Freedman, Robert Pisani and Roger 
+Purves (2007). Fourth Edition. Norton & Company.
 
 
 ## Data
@@ -40,14 +43,14 @@ There are many ways to download the app and run it:
 library(shiny)
 
 # Easiest way is to use runGitHub
-runGitHub("shiny-introstats", "gastonstat", subdir = "regression-strips")
+runGitHub("shiny-introstats", "gastonstat", subdir = "ch10-regression-strips")
 ```
 
 Or you can [clone](http://stackoverflow.com/questions/651038/how-do-you-clone-a-git-repository-into-a-specific-folder) the git repository, then use `runApp()`:
 
 ```R
 # First clone the repository with git. If you have cloned it into
 # ~/shiny-introstats, first go to that directory, then use runApp().
-setwd("~/shiny-introstats/regression-strips")
+setwd("~/shiny-introstats/ch10-regression-strips")
 runApp()
 ```
diff --git a/regression-strips/helpers.R → ch10-regression-strips/helpers.R b/regression-strips/helpers.R → ch10-regression-strips/helpers.R
diff --git a/regression-strips/server.R → ch10-regression-strips/server.R b/regression-strips/server.R → ch10-regression-strips/server.R
@@ -1,3 +1,8 @@
+# Regression Strips
+# Regression line and vertical strips
+# Chapter 10: Regression
+# Page 158-178
+
 library(shiny)
 
 dat <- read.csv('Galton.csv')

diff --git a/regression-strips/ui.R → ch10-regression-strips/ui.R b/regression-strips/ui.R → ch10-regression-strips/ui.R
@@ -1,3 +1,7 @@
+# Regression Strips
+# Regression line and vertical strips
+# Chapter 10: Regression
+# Page 158-178
 
 library(shiny)