galaaz 0.4.10 → 0.5.0

data/examples/rmarkdown/svm-rmarkdown-syllabus-example/svm-rmarkdown-syllabus-example.Rmd

@@ -0,0 +1,280 @@
+---
+output: 
+  pdf_document:
+    keep_tex: true
+    fig_caption: yes
+    latex_engine: pdflatex
+    template: /home/rbotafogo/desenv/galaaz/sty/svm-r-markdown-templates/svm-latex-syllabus.tex
+geometry: margin=1in
+
+title: "POSC 0000: A Class with an R Markdown Syllabus"
+author: Steven V. Miller
+date: "Fall 2016"
+
+email: "svmille@clemson.edu"
+web: "svmiller.com/teaching"
+officehours: "W 09:00-11:30 a.m."
+office: "230A Brackett Hall"
+classroom: "*online*"
+classhours: "TR 02:00-03:45 p.m."
+
+fontfamily: mathpazo
+fontsize: 11pt
+header-includes:
+   - \linespread{1.05}
+---
+
+```{ruby install, echo=FALSE}
+R.install_and_loads 'RefManageR'
+R.install_and_loads 'kfigr'
+```
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(cache=FALSE, dev='pdf')
+mon <- as.Date("2016-08-15")
+# fri <- as.Date("2016-01-08")
+
+advdate <- function(obj, adv) {
+ tmon <- obj + 7*(adv-1)
+ tfri <- obj + 4 + 7*(adv-1)
+ tmon <- format(tmon, format="%m/%d")
+ tfri <- format(tfri, format="%m/%d")
+ zadv <- sprintf("%02d", adv)
+ tmp <- paste("Week ",zadv,sep='',", ", tmon," - ",tfri)
+ return(tmp)
+}
+
+library(RefManageR)
+# library(knitcitations)
+# library(rcrossref)
+bib <- ReadBib("/home/rbotafogo/desenv/galaaz/examples/Bibliography/master.bib")
+myopts <- BibOptions(bib.style = "authoryear", style="latex", first.inits=FALSE, max.names = 20)
+```
+
+# Course Description
+
+You'll learn stuff in this class, I hope. Lorem ipsum dolor sit amet, consectetur adipiscing elit. 
+Maecenas scelerisque elit sapien, eu consequat dui blandit in. Vestibulum dignissim feugiat 
+mauris, at pretium turpis blandit nec. Aliquam porta scelerisque tortor, eget imperdiet quam 
+dapibus et. Sed ut sollicitudin orci, id elementum arcu. Sed arcu quam, vestibulum molestie 
+mattis sed, ultricies sed est. Phasellus eu nunc et urna volutpat pharetra. Donec interdum ante 
+vitae odio malesuada blandit. Fusce at condimentum libero, eu elementum arcu. Aenean posuere 
+id lorem in varius. Sed bibendum neque pretium dolor faucibus, in cursus ipsum suscipit. 
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Aliquam erat volutpat. Phasellus 
+mollis egestas risus, non maximus nisl euismod sit amet. Vestibulum laoreet et urna vitae 
+rutrum. Donec quis dui elit.
+
+# Course Objectives
+
+1. You'll learn this
+
+2. And also that
+
+3. Perhaps some of this too.
+
+# Required Readings
+
+```{r, echo = FALSE, results="asis"} 
+# bib["vasquez2009twp", "wagner2007ws"]
+``` 
+
+
+# Course Policy
+
+I will detail the policy for this course below. Basically, don't cheat and try to learn 
+stuff. Don't be that guy.
+
+## Grading Policy
+
+- **20%** of your grade will be determined by a midterm during normal class hours.
+
+- **20%** of your grade will be determined by a term paper that documents your appreciation 
+of Foghat's "Slow Ride", the most important song ever written. "Slow Ride" is what Mozart 
+wishes *Don Giovanni* could have been.
+
+- **10%** of your grade will be determined by your attendance and participation in class. 
+Generally, ask questions and answer them.
+
+- **20%** of your grade will be determined by a 20-page term paper on when exactly 
+"The Love Boat" jumped the proverbial shark. You will address whether this shark-jumping 
+can be attributed to Ted McGinley, the introduction of Jill Whelan as "Vicki", or some 
+other cause.
+
+- **30%** of your grade will be determined by a final exam.
+
+## Attendance Policy
+
+```{r, include=FALSE}
+options(scipen=999)
+Attend <- read.csv("attend-grade-relationships.csv")
+M1 <- lm(rgrade ~ perattend, Attend)
+M2 <- lm(rgrade ~ perattend, data=subset(Attend, perattend >= 75))
+library(broom)
+
+M1df <- tidy(M1)
+M2df <- tidy(M2)
+library(ggplot2)
+library(kfigr)
+```
+
+> *Showing up is 80 percent of life* -- Woody Allen, [via Marshall Brickman](http://quoteinvestigator.com/2013/06/10/showing-up/#note-6553-1)
+
+Students should be weary of skipping class. I deduct *all* participation points for a class 
+after five unexcused absences and this can have important implications for a student's 
+overall grade in the class. There is already a strong positive correlation between the 
+percentage of classes a student has attended in the course and the student's final grade for 
+the semester (*r* = `r round(cor(Attend$perattend, Attend$rgrade, use="complete.obs"), 3)`) for 
+all `r nrow(Attend)` students I have taught since Fall 2014. 
+
+A simple linear regression of a student's final grade on percentage of classes attended for 
+the semester for all classes I have taught since Fall 2014 suggests an increase of one percent 
+in attendance for the semester leads to an estimated increase of `r round(M1$coefficients[2], 3)` 
+in the student's final grade. Whereas one missed classes constitutes about a five-percent 
+decrease in percentage attendance for the semester, one missed class means an estimated 
+decrease of `r round(M1$coefficients[2], 3)*5` in the overall grade. The effect of attendance 
+on the final grade for the class is precise (*t* = `r round(M1df$statistic[2], 3)`) and the 
+likelihood that there is no actual relationship between attendance and final grade for the 
+semester is almost zero. This simple linear model with just one predictor (attendance) provides 
+a good fit as well (R$^2$ = `r round(summary(M1)$r.squared, 3)`). See 
+`r figr("attendplot", TRUE, type="Figure")` in this document.
+
+```{r attendplot, dev = "png", echo = FALSE, results="asis", cache=FALSE, fig.cap="A Scatterplot of the Relationship between Class Attendance and Final Grade", fig.height=4, fig.pos="H"}
+Graph <- ggplot(Attend, aes(x = perattend, y = rgrade))
+Graph + geom_point() + labs(x="Percent Attendance in Class", y="Final Grade in Class (0-100)") + 
+                              geom_smooth(method=lm)
+```
+
+A student might object that attendance is partly endogenous to a grade since past classes deducted 
+all participation points after five unexcused absences. This is true, but the findings 
+hold even when I subset the data to cases where attendance is greater than 75% (i.e. 
+roughly the threshold below which I deduct all participation points). Students who just meet 
+the threshold for full participation points nevertheless get an estimated decrease of 
+`r round(M2$coefficients[2], 3)*5` in their overall grade for each missed class. This effect 
+is also precise (*t* = `r round(M2df$statistic[2], 3)`). Put another way, we would have 
+observed this effect in my data if there were no *true* effect of attendance on grades 
+about `r round(summary(M2)$coefficients[2,4]*100000)` times in 100,000 "trials" 
+(i.e. *p* = `r round(summary(M2)$coefficients[2,4], 5)`), on average. That probability is 
+effectively zero. *Attend class*.
+
+## Late Arrival of the Professor Policy
+
+My current university, from what I have been told, asks professors to have policies written 
+into their syllabus about what students should do if the professor is more than 15 minutes 
+late to class. This seems like an anachronism. I will inform students via e-mail in advance 
+of class if class is cancelled for the day. I will also contact our department secretary if 
+something happened on the way to work. Failing that, assume the worst happened to me. I ask 
+the students make sure that my story gets the proper treatment on an *Investigation 
+Discovery* show. I also ask that my story be narrated by Keith Morrison.
+
+## E-mail Policy
+
+I am usually quick to respond to student e-mails. However, student e-mails tend to do several 
+things that try my patience. I have a new policy, effective Fall 2016, that outlines why I 
+will not respond to certain e-mails students send. Multiple rationales follow.
+
+1. The student could answer his/her own inquiry by reading the syllabus.
+2. The student missed class for which there was no exam. I do not need to know the exact 
+reason for a missed class. Students with excusable absences are responsible for giving me 
+a note *in hard copy* that documents the reason for the missed class. An e-mail is 
+unnecessary unless the impromptu absence involved missing a midterm or final.
+3. The student wants to know what topics s/he missed during a class s/he skipped. The answer 
+is always "you missed what was on the syllabus."
+4. The student is protesting a grade without reference to specific points of objection. 
+See the policy on protesting a grade in the syllabus. These e-mails tend to be expressive 
+utility on the part of the student and do not require a response from me. Students interested 
+in improving their knowledge of material should see me during office hours.
+5. The students wants to know how many classes s/he missed at some point during the semester. 
+I assume the student has a better answer to that question than me until the end of the semester.
+6. The student is requesting an extension on an assignment for which the syllabus already 
+established the deadline. The answer is always "no".
+7. The student is ["grade grubbing"](https://www.math.uh.edu/~tomforde/GradeGrubbing.html) 
+or asking to round up a grade. The answer is always "no".
+8. The student is asking for an extra credit opportunity, a request that amounts to more 
+grading for the professor. The answer is "no".
+
+
+## Make-Up Exam Policy
+
+There are **NO** make-ups for missed exams. Don't bother asking.
+
+## Academic Dishonesty Policy
+
+Don’t cheat. Don’t be that guy. Yes, you. You know exactly what I’m talking about too.
+
+## Disabilities Policy
+
+Federal law mandates the provision of services at the university-level to qualified 
+students with disabilities. Make sure to include all that relevant information here.
+
+\newpage
+
+# Class Schedule
+
+Students must read the following before Tuesday's class session.  Important: class readings 
+are subject to change, contingent on mitigating circumstances and the progress we make as 
+a class.  Students are encouraged to attend lectures and check the course website for updates. 
+
+## `r advdate(mon, 1)`: Syllabus Day
+
+*No class Thursday (Political scientists usually have a conference to start the semester).*
+
+Read *all* associated documents on course website.
+  
+  - [Taking Good Notes](http://svmiller.com/blog/2014/09/taking-good-notes/)
+  - [Dos and Dont's of Writing for Students](http://svmiller.com/blog/2015/06/dos-and-donts-of-writing-for-students/)
+  - [Assorted Tips for Students on Writing Research Papers](http://svmiller.com/blog/2015/12/assorted-tips-students-research-papers/)
+  - [Exam Grading Policy](https://www.dropbox.com/s/apihjs7di81aqcv/svm-exam-grading-policy.pdf?dl=0)
+  - [Fun with Attendance and Grades (i.e. Students Should Attend Class)](http://svmiller.com/blog/2016/05/fun-with-attendance-grades/)
+    
+
+## `r advdate(mon, 2)`: The First Topic Where We Read John Vasquez
+
+```{r, echo = FALSE, results="asis"} 
+# bib[author = "vasquez"]
+``` 
+
+##  `r advdate(mon, 3)`: Read the Nos. 90-97 Items in My Bib
+
+```{r, echo = FALSE, results="asis", eval=F} 
+bib[90:97]
+``` 
+
+*Your "Slow Ride" appreciation paper is due in Thursday's class*.
+
+##  `r advdate(mon, 4)`: Read Bib Item No. 120
+
+```{r, echo = FALSE, results="asis", eval=F} 
+bib[120]
+``` 
+
+
+
+##  `r advdate(mon, 5)`: The Fourth Topic with Bib Item No. 510
+
+```{r, echo = FALSE, results="asis", eval=F} 
+bib[510]
+``` 
+
+##  `r advdate(mon, 6)`: Keep
+##  `r advdate(mon, 7)`: Going
+##  `r advdate(mon, 8)`: Down
+
+##  `r advdate(mon, 9)`: the
+
+##  `r advdate(mon, 10)`: Line
+
+##  `r advdate(mon, 11)`: Until
+
+##  `r advdate(mon, 12)`: You
+
+## `r advdate(mon, 13)`: Are
+
+##  `r advdate(mon, 14)`: Done
+
+##  `r advdate(mon, 15)`: with
+
+
+##  `r advdate(mon, 16)`: your
+
+
+##  `r advdate(mon, 17)`: Syllabus 

data/examples/rmarkdown/svm-xaringan-example/svm-xaringan-example.Rmd

@@ -0,0 +1,386 @@
+---
+title: "Steve's Xaringan Presentation"
+subtitle: "POSC 0000 -- It Would Be Cool If This Were an Actual Class Presentation"
+author: "Steven V. Miller<br /> <br /> <br /> Department of Political Science"
+institute: Department of Political Science
+output:
+  xaringan::moon_reader:
+    css: ["default", "~/desenv/galaaz/sty/svm-xaringan-style.css"]
+    lib_dir: libs
+    nature:
+      highlightStyle: github
+      highlightLines: true
+      countIncrementalSlides: false
+---
+
+```{r setup, include=FALSE}
+options(htmltools.dir.version = FALSE)
+knitr::opts_chunk$set(dev = 'svg')
+options(device = function(file, width, height) {
+  svg(tempfile(), width = width, height = height)
+})
+library(tidyverse)
+library(stevemisc)
+```
+
+
+
+# Install Xaringan First
+
+Install the **xaringan** package from [Github](https://github.com/yihui/xaringan):
+
+```{r eval=FALSE, tidy=FALSE}
+devtools::install_github("yihui/xaringan")
+```
+
+
+You are recommended to use the [RStudio IDE](https://www.rstudio.com/products/rstudio/), but you do not have to.
+
+- Create a new R Markdown document from the menu `File -> New File -> R Markdown -> From Template -> Ninja Presentation`;<sup>1</sup>
+- Click the `Knit` button to compile it.
+
+---
+
+# remark.js Maximizes the Presentation Value
+
+Press `h` or `?` to see  controls you have in remark.js.
+
+Hit `Esc` to exit that screen.
+
+
+
+---
+
+class: center, middle
+
+# You can do this to your slides if you want
+## Add `class: center, middle` to the start of your slide.
+### Perhaps you want the appearance of a secondary title slide, which is what this will do.
+
+For example, check this out...
+
+---
+
+class: center, middle
+
+# Pop Music and Political Science
+## POSC 0000 -- It Would Be Cool If This Were an Actual Class Presentation
+### I am not funny and you will be forgiven for thinking of me as impossibly uncool.
+
+
+
+---
+
+# Sheena Easton and Total Conflict
+
+Sheena Easton describes the following scenario for her baby:
+
+- Takes the morning train
+- Works from nine 'til five
+- Takes another train home again
+- Finds Sheena Easton waiting for him
+
+--
+
+Sheena Easton and her baby are playing a **zero-sum (total conflict)** game.
+
+- Akin to Holmes-Moriarty game (see: von Neumann and Morgenstern), or "matching pennies."
+- Useful for modeling strategic counterterrorism dilemmas between a government and terrorist group.
+
+
+---
+
+# A Total Conflict Between Sheena Easton and Her Baby
+
+|                         | Sheena Easton Stays Home       | Sheena Easton Goes to Baby's Work |
+|-------------------------|---------------------|------------------|
+| **Baby Home Again**          |  -100, **100**         |  **100**, 0       |
+| **Baby Stays at Work**             |   **50**, 0        |  -100, **100**        |
+
+--
+
+<br />
+
+Notice we have no pure strategies, and no Nash equilibrium.
+
+- Sheena Easton wants to proverbially "match pennies."
+- Her baby has diametrically opposed preferences, fearing for his safety.
+
+Solution: mixed strategy.
+
+---
+background-image: url(https://media.giphy.com/media/dqZSIfquVhSg0/giphy.gif)
+background-position: 50% 50%
+background-size: 100%
+class: center, bottom, fullscale
+
+# Run...
+
+---
+
+# Congressman Astley's Re-election Platform
+
+Assume Congressman Astley presides over a competitive district in which he seeks reappointment. He promises he's:
+
+- Never gonna give you up.
+- Never gonna let you down.
+- Never gonna run around and desert you.
+- Never gonna make you cry.
+- Never gonna say goodbye.
+- Never gonna tell a lie and hurt you.
+
+Are these promises (if credible) sufficient to secure re-election?
+
+---
+
+```{r, eval = T, echo = F, fig.width=11, fig.height = 8, message=F, dev='svg', fig.cap = "SDFSFDSFS"}
+
+df <- data.frame(x = rnorm(1000))
+x <- df$x
+
+ggplot(df, aes(x)) + 
+  theme_steve_web() +
+  stat_function(fun = dnorm, colour = "black") +
+  scale_x_continuous(limits = c(-4, 4), 
+                     breaks = c(-4,  0,  4),
+                     labels = c("Complete\nEmotional\nNeglect", 
+                                "Never Gonna Give You Up\nLet You Down\nRun Around and Desert You\n(Preference of Median Voter)",
+                                "Maximum\nEmotional\nSupport")) +
+  geom_vline(xintercept = 0) +
+  geom_vline(xintercept = 1, linetype="dashed") +
+  geom_vline(xintercept = -2, linetype = "dashed") +
+  geom_vline(xintercept = -.5, linetype = "dotted") +
+  scale_y_continuous(limits = c(0, .5), breaks = NULL, label=NULL) +
+  xlab("A Unidimensional Continuum of the Policy Space of Emotional Support") +
+  ylab("") +
+  stat_function(fun = dnorm, 
+                xlim = c(-4,-2),
+                size=0,
+                geom = "area", fill="#f8766d", alpha=1) +
+  stat_function(fun = dnorm, 
+                xlim = c(1, 4),
+                size=0,
+                geom = "area", fill="#619cff", alpha=1)  +
+  stat_function(fun = dnorm, 
+                xlim = c(-.5, 1),
+                size=0,
+                geom = "area", fill="#619cff", alpha=.4) +
+  stat_function(fun = dnorm, 
+                xlim = c(-2, -.5),
+                size=0,
+                geom = "area", fill="#f8766d", alpha=.4) +
+  annotate("text", label="Astley's rival is promising\nfar less in the (public?) good\nof emotional support",
+           size = 3.5, family="Open Sans",
+           x = -2.1, y = .4,
+           hjust = 1) +
+  annotate("text", 
+           label="Congressman Astley is pledging\nmore emotional support\n(i.e. never gonna make you cry/say goodbye/tell a lie/hurt you)\nthan most his constituents want",
+           size = 3.5, family="Open Sans",
+           x = 1.1, y = .4,
+           hjust = 0) +
+  annotate("text", 
+           label="Preferences\ncloser to\nAstley's\nrival",
+           size = 3.5, family="Open Sans",
+           x = -1.2, y = .45,
+           hjust = .5) +
+  annotate("text", 
+           label="Preferences\ncloser to\nCongressman\nAstley",
+           size = 3.5, family="Open Sans",
+           x = .5, y = .45,
+           hjust = .5) +
+  labs(title = "Median Voter Theorem Suggests Congressman Astley Secures Re-election Against His Rival",
+       subtitle = "Assuming a unidimensional policy space and single-peaked preferences, Congressman Astley is closer to the median voter than his rival and wins the election.") +
+  geom_hline(yintercept = 0) +
+  geom_vline(xintercept = -4)
+  
+  
+
+
+```
+
+---
+background-image: url(https://media.giphy.com/media/Vuw9m5wXviFIQ/giphy.gif)
+background-position: 50% 50%
+background-size: 100%
+class: center, bottom, fullscale
+
+# Re-election Dance
+
+
+
+---
+
+# Caribbean Queen and Operation Urgent Fury
+
+.pull-left[
+
+Billy Ocean released "Caribbean Queen" in 1984.
+
+- Emphasized sharing the same dream
+- Hearts beating as one
+
+"Caribbean Queen" is about the poor execution of Operation Urgent Fury.
+
+- Coordination problems plagued its execution from the start.
+- Echoed JCS chairman David Jones' frustrations with military establishment.
+]
+
+.pull-right[
+
+![](http://wearethemighty.wpengine.netdna-cdn.com/wp-content/uploads/2016/05/GrenadaNewsCartoon.jpg)
+
+*This seriously happened, btw..*
+]
+
+Billy Ocean is advocating for what became the Goldwater-Nichols Act.
+
+- Wanted to take advantage of **economies of scale**, resolve **coordination problems** in U.S. military.
+
+---
+
+background-image: url(https://i.makeagif.com/media/9-05-2015/auHafh.gif)
+background-position: 50% 50%
+background-size: 100%
+class: center, bottom, fullscale
+
+# The military establishment was the tiger we wanted to tame all along.
+
+
+---
+
+# The Good Day Hypothesis
+
+We know the following about Ice Cube's day.
+
+1. The Lakers beat the Supersonics.
+2. No helicopter looked for a murder.
+3. Consumed Fatburger at 2 a.m.
+4. Goodyear blimp: "Ice Cube's a pimp."
+
+--
+
+This leads to two different hypotheses:
+
+- $H_0$: Ice Cube's day is statistically indistinguishable from a typical day.
+- $H_1$: Ice Cube is having a good day.
+
+These hypotheses are tested using archival data from Ice Cube's life to estimate an item response model of the "goodness" of Ice Cube's days.
+
+---
+
+```{r, eval = T, echo = F, fig.width=11, fig.height = 8, message=F, dev='svg', fig.cap = "SDFSFDSFS"}
+interval1 <- -qnorm((1-0.9)/2)  # 90% multiplier
+interval2 <- -qnorm((1-0.95)/2) # 95% multiplier
+
+tribble(
+  ~variable, ~est, ~se,
+  "Latent Estimate of\nIce Cube's Day", 1.6, .231
+) %>%
+  ggplot(.) + theme_steve_web() +
+  geom_hline(yintercept = .5, color = "red", lty=2) +
+  geom_linerange(aes(x = variable, ymin = est - se*interval1,
+                                ymax = est + se*interval1),
+                            lwd = 1, position = position_dodge(width = 1/2)) +
+  geom_pointrange(aes(x = variable, y = est, ymin = est - se*interval2,
+                                 ymax = est + se*interval2),
+                             lwd = 1/2, position = position_dodge(width = 1/2),
+                             fill = "WHITE") +
+  coord_flip() + xlab("") + ylab("Latent Estimate") +
+  labs(title = "Latent Estimates from Ice Cube's Archives Lend Support to the 'Good Day' Hypothesis",
+       subtitle = "Latent estimates are drawn from an item response model of indicators of the quality of Ice Cube's days. These include whether he had to use his A.K.",
+       caption = "Data: Ice Cube's Archives, obviously fictional. Red value of .5 indicate likelihood of 'good day.'")
+  
+
+
+```
+
+---
+
+background-image: url(https://media.giphy.com/media/cgh25bl5dgK3u/giphy.gif)
+background-position: 50% 50%
+background-size: 100%
+class: center, bottom, fullscale
+
+---
+
+class: center, middle
+
+# You Can Do Other Stuff in Xaringan Too
+## POSC 0000 -- It Would Be Cool If This Were an Actual Class Presentation
+### I might use it mostly for the ability to put GIFs in class presentations, but it's flexible enough to do almost anything.
+
+---
+
+Show some R code and execute it if you'd like.
+
+```{r}
+pi
+
+3+5
+
+rnorm(10)
+
+```
+
+
+---
+
+Here's a simple ultimatum game, a la Fearon (1995). Done via `DiagrammeR`.
+
+```{r, echo=F, eval=T}
+library(DiagrammeR)
+grViz(" 
+  digraph {
+    # Multiple level nodes
+    node [shape = square, color=CornflowerBlue]
+    A [label = 'A']; 
+    0 [label = '0', shape = none];
+    B [label = 'B'];
+    1 [label = '1', shape = none];
+    Accept [label = '1 - x, x', shape = none];
+    N;
+    Awins [shape = none, label = '1 - k, k'];
+    Bwins [shape = none, label = '-k, 1 - k']
+
+
+
+     # Connect nodes with edges and labels
+    A -> 0 [arrowhead= none]
+    A -> B
+    A -> 1 [arrowhead = none]
+    B -> Accept [headlabel = 'Accept', labeldistance = 5, labelangle=75] 
+    B -> N [label = '       Reject']
+    N -> Awins [headlabel = 'A wins (1 - p)', labeldistance=4.5 ,
+        labelangle=75]
+    N -> Bwins [label = 'B wins (p)']
+  }
+
+[1]: 'A' 
+[2]: '0'
+[3]: paste0('Model 3\\n Split 3') 
+[4]: paste0('Model 6\\n Split 4') 
+")
+
+```
+
+---
+
+# Conclusion
+
+Xaringan is a nifty Rstudio add-on/package for creating HTML presentations.
+
+- I think I'm still more inclined toward Beamer but Xaringan has tons of flexibility.
+- Have an interactive component to your presentation (e.g. `leaflet` or a Shiny app)? You probably want Xaringan.
+
+Plus, you can put GIFs into your presentation with Xaringan. That's nifty. Maybe students will like that.
+
+
+
+---
+
+background-image: url(https://i.imgur.com/IHeUeZ9.gif)
+background-position: 50% 50%
+background-size: 100%
+class: center, bottom, fullscale
+
+Questions? Hate mail? Stay out of my mentions @stevenvmiller