The following is a script file containing all R code of all sections in this slide set.
plot(iris$Sepal.Length,iris$Sepal.Width,col=iris$Species)
library(rmarkdown) render("initialDoc.Rmd")