---
title: "demo"
runtime: shiny
output: html_document
---
## 示例
内容
```{r, echo=FALSE}
numericInput("m", "Number of samples:", 2, min = 1, max = 100)
```
```{r, echo=FALSE}
renderPlot({
means <- replicate(1e4, mean(runif(input$m)))
hist(means, breaks = 20)
}, res = 96)
```