3a_4_Outcome_model_fit_linear.Rmd

---
author: "Leon Di Stefano"
date: "`r Sys.Date()`"
output: 
  html_document:
    keep_md: false
params:
  fit_name: "main_fit_with_priors_linear"
  outcome_min: 28
  outcome_max: 35
title: "`r paste0('Outcome model fit', params$outcome_min, params$outcome_max, params$fit_name, sep = '-')`"
---

```{r}
knitr::opts_chunk$set(echo = TRUE)
require(here)
require(brms)
require(tidybayes)
require(mice)
require(cmdstanr)

here::i_am(file.path("hcq_pooling_analysis", "3a_Outcome_model_fit_with_priors_linear.Rmd"))

source(here("hcq_pooling_analysis", "common.R"))

out_stub         <- paste(params$outcome_min, params$outcome_max, sep = '-')
output_dir       <- here("hcq_pooling_analysis", "output", out_stub)
output_model_dir <- file.path(output_dir, params$fit_name)
if(!dir.exists(output_model_dir)) {
  dir.create(output_model_dir, recursive = TRUE)
}
```

```{r}
params
```

Read multiply-imputed data:

```{r}
mice_df_list <-
  read_rds(here(output_dir, "mice_complete_df_list.rds"))

patients <-
  read_rds(here(output_dir, "patients.rds"))
```

Specify the primary model formula:

```{r}
sap_primary_model_linear <-
  brms::bf(
    niaid_outcome ~
        treat*(
          sex_model +
          age_model +
          bmi_model +
          comorbidity_count +
          niaid_baseline_numeric_model
        ) +
        (1 + treat || siteid) +
        (1 + treat || niaid_baseline_fct)
  )
```

Add the prespecified priors:

```{r}
prespecified_prior <-
  c(prior(normal(0,5), class = b),
    prior(student_t(3, 0, 5), class = sd)) # CHECK THAT THIS IS FOLDED CORRECTLY
```

Fit the primary outcome model:

```{r message=FALSE}
ncores <- parallel::detectCores() - 1
brm_fit <-
  brm_multiple(
      formula = sap_primary_model_linear,
      family = cumulative,
      prior = prespecified_prior,
      data = mice_df_list,
      cores = ncores,
      control = list(adapt_delta = 0.999), # helps avoid divergent transitions 
      iter = 3000,
      thin = 3,
      backend = 'cmdstanr',
      seed = 20200524
      # file_refit = "on_change"
      )
write_rds(brm_fit, file.path(output_model_dir, paste0(params$fit_name, ".rds")))
```


```{r}
sessionInfo()
```



```{r}
Sys.time()
```