---
title: "ffmpeg test"
author: "Kenshi Miyabe"
date: "2016年12月7日"
output: 
  html_document: 
    keep_md: yes
    number_sections: yes
    self_contained: no
    toc: yes
---

```{r hist, interval=0.2, fig.height=8, fig.show="animate", fig.width=8, aniopts='controls,autoplay'}
die <- 1:6
n <- 100
r <- sample(x=die, size=n, replace=TRUE)

xlim <- c(0.5,6.5)
ylim <- c(1, floor(n/5))
for(i in 1:n){
  hist(r[1:i],xlim=xlim,ylim=ylim,breaks=seq(0.5,6.5,by=1))
}

```