---
title: "Word Output Template"
output: 
  word_document:
    reference_docx: "word_template.docx"

---

```{r setup, include=FALSE}
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  error = FALSE,
  echo = TRUE)
```

# Heading 1

Text goes here

## Heading 2

More text here.

### Heading 3

And even more text here.

# Output a table

```{r exTable, echo = FALSE}
library(oldr)
library(magrittr)
library(dplyr)
library(knitr)

testSVY %>%
  create_op() %>%
  estimate_op(w = testPSU, indicators = "demo", replicates = 19) %>%
  select(LABEL:UCL.FEMALES) %>%
  kable(digits = 2)
```

```{r respondentTable}
resultsDF <- estimate_op(x = indicators.ALL, w = testPSU, indicators = "demo", replicates = 19) %>%
  select(LABEL:UCL.FEMALES)

knitr::kable(x = resultsDF)
```

