Adds sample-rmarkdown.Rmd to the diagrams folder and inserts it into …

…the reproducible research chapter.

diagrams/sample-rmarkdown.Rmd

@@ -0,0 +1,30 @@
+---
+title: "Untitled"
+author: "RStudio"
+date: "August 2, 2016"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+## R Markdown
+
+This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.
+
+When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
+
+```{r cars}
+summary(cars)
+```
+
+## Including Plots
+
+You can also embed plots, for example:
+
+```{r pressure, echo=FALSE}
+plot(pressure)
+```
+
+Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot.

reproducible-research.Rmd

@@ -25,7 +25,7 @@ knitr::include_graphics("images/rmarkdown-wizard.png")
 Since this is our first time using R Markdown, just click OK. RStudio will open a new file and place into it the text below.
 
 ```{r echo = FALSE, comment = ""}
-cat(htmltools::includeText("~/Documents/r4ds/extra/sample-rmarkdown.Rmd"))
+cat(htmltools::includeText("diagrams/sample-rmarkdown.Rmd"))
 ```
 
 The file contains everything that you need to reproduce a (here trivial) analysis, as well as everything you need to generate a finished report about the analysis to export.