clt-master.Rmd

---
title: "Central Limit Theorem In Action"
author: "by Sahir Bhatnagar"
date: "`r Sys.Date()`"
output:
  html_document:
    toc: true
    toc_float: true
    number_sections: true
    toc_depth: 4
    keep_md: true
editor_options: 
  chunk_output_type: console
---


```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, fig.fullwidth = TRUE, fig.width = 12, fig.height = 9)
```


```{r clt-source, tidy.opts=list(width.cutoff=55)}
# apply knit_expand to each value of n
src <- mapply(knitr::knit_expand, file = "clt-template.Rmd", i = seq(10,2010, by=100))
```


# CLT in Action

`r knitr::knit(text = unlist(src))`