modules.R
In epicmodel: Causal Modeling in Epidemiology

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(epicmodel)

## ----include=FALSE------------------------------------------------------------
steplist_checked <- steplist_party %>% remove_na() %>% remove_segment("d4") %>% check_steplist()
scc_model <- steplist_checked %>% create_scc()

## ----eval = FALSE-------------------------------------------------------------
# steplist_checked <- steplist_party %>% remove_na() %>% remove_segment("d4") %>% check_steplist()
# scc_model <- steplist_checked %>% create_scc()
# scc_model

## ----echo=FALSE---------------------------------------------------------------
scc_model