---
title: "Analysis"
date: "Last Updated: `r format(Sys.Date(), format = '%B %d, %Y')`"
output:
  html_document:
    toc: true
    toc_float: true
    toc_depth: 2
---

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

set.seed({{format(Sys.Date(), format = "%Y%m%d")}})
```

# Analytic Data Import

```{r import}
library(gtsummary); library(tidyverse)

# setting and gtsummary theme
theme_gtsummary_compact()

# importing master analytic data set
df_main <- readRDS(file = here::here("secure_data", "df_main.Rds"))
```


# Analysis

```{r analysis1}

```

# Save Results

```{r save}
# list result objects here. save only those needed for the final report
save(
  df_results, gts_table1,
  file = here::here("secure_data", "results.Rdata")
)
```

