```
data <- data.frame(eta=rnorm(100000,0,1)) %>%
mutate(y0 = 2 + eta, y1 = y0 + 5,
treat_eff = y1 - y0)
sumtable(data, summ=c('notNA(x)','mean(x)','sd(x)'))
```

Variable | NotNA | Mean | Sd |
---|---|---|---|

eta | 1e+05 | 0.004 | 1.004 |

y0 | 1e+05 | 2.004 | 1.004 |

y1 | 1e+05 | 7.004 | 1.004 |

treat_eff | 1e+05 | 5 | 0 |