Tris à plat Rmarkdown

tris_a_plat.Rmd

---
title: "test"
date: "19 septembre 2017"
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(knitr)
library(questionr)

d <- data.frame(question1 = c("a","a","b"), question2 = c("d","d","e"))

```

# Tris à plat

```{r, results='asis'}
for (var in names(d)) {
  cat('## ', var, '\n')
  cat(kable(freq(d[,var]), format='markdown'), sep = '\n')
  cat('\n')
}

```