diff --git a/ChangeLog b/ChangeLog
index ec8b0e2..684e57e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,15 @@
+2018-09-24  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/presentoDemo/presentoDemo.Rmd: Longer demo
+	* inst/presentoDemo/presentoDemo.pdf: Ditto
+
+	* docs/presento_minimal.pdf: Short demo for README
+	* docs/presento_minimal.gif: Ditto
+
+	* docs/metropolis_demo: Adding longer demo
+	* docs/metropolis_iqss: Ditto
+	* docs/metropolis_presento: Ditto
+
 2018-09-23  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/rmarkdown/templates/presento/resources/template.tex: Do not
diff --git a/docs/iqss_demo.pdf b/docs/iqss_demo.pdf
new file mode 100644
index 0000000..62589be
Binary files /dev/null and b/docs/iqss_demo.pdf differ
diff --git a/docs/metropolis_demo.pdf b/docs/metropolis_demo.pdf
new file mode 100644
index 0000000..1a26ccb
Binary files /dev/null and b/docs/metropolis_demo.pdf differ
diff --git a/docs/presento_demo.pdf b/docs/presento_demo.pdf
new file mode 100644
index 0000000..01d3dc9
Binary files /dev/null and b/docs/presento_demo.pdf differ
diff --git a/docs/presento_minimal.gif b/docs/presento_minimal.gif
new file mode 100644
index 0000000..115ecd8
Binary files /dev/null and b/docs/presento_minimal.gif differ
diff --git a/docs/presento_minimal.pdf b/docs/presento_minimal.pdf
new file mode 100644
index 0000000..3801207
Binary files /dev/null and b/docs/presento_minimal.pdf differ
diff --git a/inst/presentoDemo/presentoDemo.Rmd b/inst/presentoDemo/presentoDemo.Rmd
new file mode 100644
index 0000000..3d27321
--- /dev/null
+++ b/inst/presentoDemo/presentoDemo.Rmd
@@ -0,0 +1,87 @@
+---
+author: Rahul Saha
+address: www.ratulsaha.com
+title: PRESENTO
+subtitle: clean, simple and extensible
+date: \today
+output: binb::presento
+---
+
+
+## Presento
+
+- \begin{center}\largetext{The design is \underline{clean}}\end{center}    \bigskip
+- \begin{center}\largetext{The rules are \underline{simple}}\end{center}   \bigskip
+- \begin{center}\largetext{The code is \underline{extensible}}\end{center}
+
+## Open Source Fonts
+
+-  \montserratfont This is \textsc{Montserrat}	\bigskip
+-  \notosansfont This is \textsc{Noto Sans}		\bigskip
+-  \latolightfont This is Lato (light)          \bigskip
+-  \inconsolatafont This is inconsolata         \bigskip
+-  \textsc{This is Alegreya Sans small caps}    \bigskip
+
+## Color Palette
+
+\begin{center}
+  \crule[colordgray] \crule[colorhgray] \crule[colorblue] \crule[colorgreen] \crule[colororange]
+\end{center}
+
+____
+
+\begin{center}
+ \hugetext{BIG BOLD TEXT} 
+ \medskip 
+ \small but background color does not work
+\end{center}
+
+
+____
+
+\tikz[overlay,remember picture] \node[opacity=0.8, at=(current page.center)]{%
+  \includegraphics[width=\paperwidth]{images/skeleton}};
+\begin{textblock}{7}(7,2.5)
+  {\color{colorblue}\hugetext{\textbf{RUN!}}}
+\end{textblock}
+
+
+
+
+## R Appendix: R Figure Example
+
+The following code generates the plot on the next slide (taken from
+`help(bxp)` and modified slightly):
+
+\small
+
+```{r pressureCode, eval=FALSE}
+library(stats)
+set.seed(753)
+bx.p <- boxplot(split(rt(100, 4),
+                      gl(5, 20)), plot=FALSE)
+bxp(bx.p, notch = FALSE, boxfill = "lightblue",
+    frame = FALSE, outl = TRUE,
+    main = "Example from help(bxp)")
+```  
+
+## R Appendix: R Figure Example
+  
+```{r pressureFig, echo=FALSE}
+library(stats)
+set.seed(753)
+bx.p <- boxplot(split(rt(100, 4),
+                      gl(5, 20)), plot=FALSE)
+bxp(bx.p, notch = FALSE, boxfill = "lightblue",
+    frame = FALSE, outl = TRUE,
+    main = "Example from help(bxp)")
+```  
+
+## R Appendix: R Table Example
+  
+A simple data example:  
+
+```{r notkableEx}
+mtcars[1:5, 1:5]
+```
+
diff --git a/inst/presentoDemo/presentoDemo.pdf b/inst/presentoDemo/presentoDemo.pdf
new file mode 100644
index 0000000..01d3dc9
Binary files /dev/null and b/inst/presentoDemo/presentoDemo.pdf differ