# Day 7: Memes are valid social commentary

### by Danielle Navarro, 03 May 2018

library(meme)
library(glue)
loc <- "https://djnavarro.net/img/meme/"

meme(
img = glue(loc,"morpheus.png"),
upper = "what if i told you",
lower = "i made this in R",
size = 4
)

meme(
img = glue(loc,"popeleox.jpg"),
lower = "y tho",
vjust = .3,
size = 4
)

meme(
img = glue(loc,"morpheus.png"),
upper = "the author has no time",
lower = "to write a serious post",
size = 3
)

meme(
img = glue(loc,"popeleox.jpg"),
lower = "...",
vjust = .3,
size = 4
)

meme(
img = glue(loc,"chopper5.jpg"),
lower = "this is just the American chopper\n meme recontextualised",
vjust = .2,
size = 2
)

## Yeah, but why though?

Perhaps foolishly, I started teaching myself Stan yesterday…

and today..

and I was intending to write a post about my initial efforts, but I’m not quite there yet. The learning process is going surprisingly well, given my complete ignorance of how Hamiltonian Monte Carlo works. At the moment though I’m still reading the documentation, and, well…

meme(
img = glue(loc,"boromir.jpg"),
upper = "one does not simply",
lower = "read the stan documentation"
)

I mean, the manual alone is 600+ pages long. It’s pretty fantastic though! I’ve never seen such incredibly thorough yet easy to follow documentation, to the point that I’m genuinely enjoying reading it. In fact, I got so wrapped up reading the manual that I haven’t actually written anything about Stan yet. I’m too tired this evening to do anything that requires thinking. However, I do want to adhere to my “write about a package a day” rule… so…

The meme package, it… well, it does what it says on the tin. It makes memes. You could totally do the same thing in dozens of other ways, but somehow the sheer simplicity of the meme() function appeals to me.

It is very silly and I love it.

library(stringr)
meme(
)