| Title: | Align Regressions with Target Estimands |
|---|---|
| Description: | Provides tools to align estimands with the identification that they require. Given a 'dagitty' object and a model specification, 'DAGassist' classifies variables by causal roles, recovers a target estimand, and generates a report comparing the original model with DAG-derived adjustment sets. Supports exporting publication-grade reports in 'LaTeX', 'Word', 'Excel', 'dotwhisker', or plain text/'markdown'. 'DAGassist' is built on 'dagitty', an 'R' package that uses the 'DAGitty' web tool (<https://dagitty.net/>) for creating and analyzing DAGs. Methods draw on Pearl (2009) <doi:10.1017/CBO9780511803161> and Textor et al. (2016) <doi:10.1093/ije/dyw341>. |
| Authors: | Graham Goff [aut, cre] (ORCID: <https://orcid.org/0000-0002-0717-6995>), Michael Denly [aut] (ORCID: <https://orcid.org/0000-0002-7074-5011>) |
| Maintainer: | Graham Goff <[email protected]> |
| License: | GPL (>= 2) |
| Version: | 0.3.1 |
| Built: | 2026-10-27 11:47:40 UTC |
| Source: | https://github.com/grahamgoff/dagassist |
Tests how the adjustment set and identification respond to edges the root DAG assumes are absent (DAGWOOD exclusion branches). Each added edge is evaluated as its own branch DAG (root + that edge).
add_edges_robustness(dag, exposure, outcome, add_edges, formula = NULL)add_edges_robustness(dag, exposure, outcome, add_edges, formula = NULL)
dag |
A |
exposure, outcome
|
Optional; inferred from the DAG when omitted. |
add_edges |
Character vector like |
formula |
Optional model formula or engine call; used only to decide whether a role-flipping covariate is in your specification. |
A DAGassist_addedge_summary object.
# What if the DAG is missing an arrow, or has unmeasured confounding? add_edges_robustness(toy_dag, add_edges = c("A -> X", "X <-> Y"))# What if the DAG is missing an arrow, or has unmeasured confounding? add_edges_robustness(toy_dag, add_edges = c("A -> X", "X <-> Y"))
flag bad controls (mediator/collider/desc of Y) among a candidate set
bad_controls_in(dag, controls, exposure, outcome)bad_controls_in(dag, controls, exposure, outcome)
dag |
A |
controls |
Character vector of variable names. |
exposure |
Character; exposure node name (X). |
outcome |
Character; outcome node name (Y). |
A character vector (possibly empty) containing the elements of
controls that are identified as "bad controls".
This is essentially the inverse of pick_minimal_controls(), as it returns
bad controls, rather than the minimal/canonical set of good controls
# Which variables in a formula are bad controls, given the DAG? bad_controls_in(toy_dag, controls = c("M", "C", "Z"))# Which variables in a formula are bad controls, given the DAG? bad_controls_in(toy_dag, controls = c("M", "C", "Z"))
Compares the complete-case analytic sample of a reference model against each
other model in a named list, flagging covariates whose sample composition
shifts (|(S)MD| > threshold). Engine-agnostic: it reads variable names from
each model and recomputes samples on data, so it works for lm, glm,
feols, coxph, weighted fits, etc. Models are never refit.
balance_models( models, data, reference = 1, covariates = NULL, threshold = 0.1, extra_vars = NULL, include_outcome = FALSE )balance_models( models, data, reference = 1, covariates = NULL, threshold = 0.1, extra_vars = NULL, include_outcome = FALSE )
models |
Named list of fitted models. The names label the comparisons. |
data |
The shared source data frame (a superset of every model's rows). |
reference |
Name or index of the model that defines the baseline sample. |
covariates |
Optional character vector of covariates to assess. Default:
the union of all models' predictors present in |
threshold |
Flag covariates with |
extra_vars |
Additional variables that drive listwise deletion (e.g. a weight or cluster column not detected from the call). |
include_outcome |
Assess the outcome variable too (default FALSE). |
An object of class DAGassist_balance: a list with $reference,
$comparisons (per-comparison (S)MD tables) and $summary (one row per
comparison: n_ref, n_cmp, n_covariates, n_flagged, pct_flagged, any_flagged).
# Rows with missing C drop out of the Original model only d <- toy_data d$C[d$Z > 1] <- NA balance_models( list(Original = lm(Y ~ X + M + C + Z, data = d), Minimal = lm(Y ~ X + Z, data = d)), data = d )# Rows with missing C drop out of the Original model only d <- toy_data d$C[d$Z > 1] <- NA balance_models( list(Original = lm(Y ~ X + M + C + Z, data = d), Minimal = lm(Y ~ X + Z, data = d)), data = d )
Labels each node by causal role in a console tabular grid. This function is
mostly used as an internal helper, but can be used on its own. Users are
encouraged to alternatively use DAGassist::DAGassist(show=roles) for role
table specific output.
classify_nodes(dag, exposure, outcome)classify_nodes(dag, exposure, outcome)
dag |
A |
exposure |
Optional– inferred from DAG if not set; character; exposure node name (Exp.). |
outcome |
Optional– inferred from DAG if not set; character; outcome node name (Out.). |
A data.frame with one row per node and columns:
variable (node name)
logical flags: is_exposure, is_outcome, is_confounder,
is_mediator, is_collider, is_neutral_on_treatment,
is_neutral_on_outcome, is_descendant_of_mediator,
is_descendant_of_collider, is_descendant_of_confounder_on_bdp,
is_descendant_of_confounder_off_bdp
role (a single primary label)
Roles legend:
Exp. = exposure
Out. = outcome
CON = confounder
MED = mediator
COL = collider
dOut = descendant of Out.
dMed = descendant of any mediator,
dCol = descendant of any collider
dConfOn = descendant of a confounder on a back-door path
dConfOff = descendant of a confounder off a back-door path
NCT = neutral control on treatment
NCO = neutral control on outcome
classify_nodes(toy_dag)classify_nodes(toy_dag)
DAGassist() validates a DAG + model specification, classifies node roles,
builds minimal and canonical adjustment sets, fits comparable models, and
renders a compact report in several formats (console, LaTeX fragment, DOCX,
XLSX, plain text). It can also target sample-average estimands via weighting
(e.g., total) and recover sample average controlled direct effects via
sequential g-estimation.
DAGassist( dag, formula = NULL, data = NULL, exposure, outcome, engine = stats::lm, labels = NULL, verbose = TRUE, type = c("console", "latex", "word", "docx", "excel", "xlsx", "text", "txt", "dwplot", "dotwhisker"), show = c("all", "roles", "models"), out = NULL, imply = FALSE, eval_all = FALSE, exclude = NULL, omit_intercept = TRUE, omit_factors = TRUE, bivariate = FALSE, estimand = c("raw", "none", "total", "direct"), engine_args = list(), weights_args = list(), wts_omit = NULL, auto_acde = TRUE, acde = list(), directeffects_args = list(), uncertain_edges = NULL, pdag = NULL, add_edges = NULL )DAGassist( dag, formula = NULL, data = NULL, exposure, outcome, engine = stats::lm, labels = NULL, verbose = TRUE, type = c("console", "latex", "word", "docx", "excel", "xlsx", "text", "txt", "dwplot", "dotwhisker"), show = c("all", "roles", "models"), out = NULL, imply = FALSE, eval_all = FALSE, exclude = NULL, omit_intercept = TRUE, omit_factors = TRUE, bivariate = FALSE, estimand = c("raw", "none", "total", "direct"), engine_args = list(), weights_args = list(), wts_omit = NULL, auto_acde = TRUE, acde = list(), directeffects_args = list(), uncertain_edges = NULL, pdag = NULL, add_edges = NULL )
dag |
A dagitty object (see |
formula |
Either (a) a standard model formula |
data |
A |
exposure |
Optional character scalar; if missing/empty, inferred from the DAG (must be unique). |
outcome |
Optional character scalar; if missing/empty, inferred from the DAG (must be unique). |
engine |
Modeling function, default stats::lm. Ignored if |
labels |
list; optional variable labels (named character vector or data.frame). |
verbose |
logical (default |
type |
output type. One of
|
show |
character vector or list; specify which sections to include in the output. One of |
out |
output file path for the non-console types:
|
imply |
logical; default
|
eval_all |
logical; default |
exclude |
character vector or list; remove neutral controls from the canonical set.
Recognized values are |
omit_intercept |
logical; drop intercept rows from the model comparison display (default |
omit_factors |
logical; drop factor-level rows from the model comparison display (default |
bivariate |
logical; if |
estimand |
character vector; causal estimand(s) for reported columns. Any of:
|
engine_args |
Named list of extra arguments forwarded to |
weights_args |
list; arguments forwarded to WeightIt when computing IPW weights for
|
wts_omit |
character vector; terms to omit from the weighting (treatment)
model even when |
auto_acde |
logical; if |
acde |
list; options for the controlled direct effect workflow (estimand |
directeffects_args |
Named list of arguments forwarded to |
uncertain_edges |
Character vector of edges with unknown direction,
e.g. |
pdag |
Optional |
add_edges |
Character vector of hypothesized edges absent from the DAG,
e.g. |
Engine-call parsing. If formula is a call (e.g., feols(Y ~ X | fe, data=df)),
DAGassist extracts the engine function, formula, data argument, and any additional
engine arguments directly from that call; these are merged with engine/engine_args
you pass explicitly (call arguments win).
fixest tails. For engines like fixest that use | to denote FE/IV parts,
DAGassist preserves any | ... tail when constructing minimal/canonical formulas
(e.g., Y ~ X + controls | fe | iv(...)).
Roles grid. The roles table displays short headers:
Exp. (exposure),
Out. (outcome),
CON (confounder),
MED (mediator),
COL (collider),
dOut (descendant of Y),
dMed (descendant of any mediator),
dCol (descendant of any collider),
dConfOn (descendant of a confounder on a back-door path),
dConfOff (descendant of a confounder off a back-door path),
NCT (neutral control on treatment),
NCO (neutral control on outcome).
These extra flags are used to (i) warn about bad controls, and (ii) build
filtered canonical sets such as “Canonical (–NCO)” for export.
Bad controls. For total-effect estimation, DAGassist flags as bad controls
any variables that are MED, COL, dOut, dMed, or dCol. These are warned in
the console and omitted from the model-comparison table. Valid confounders (pre-treatment)
are eligible for minimal/canonical adjustment sets.
Output types.
console prints roles, adjustment sets, formulas (if verbose), and a compact model comparison
(using {modelsummary} if available, falling back gracefully otherwise).
latex writes or prints a LaTeX fragment you can \\input{} into a paper —
it uses tabularray long tables and will include any requested Canon. (-NCO / -NCT) variants.
docx/word writes a Word doc (respects options(DAGassist.ref_docx=...) if set).
excel/xlsx writes an Excel workbook with tidy tables.
text/txt writes a plain-text report for logs/notes.
dwplot/dotwhisker produces a dot-whisker visualization of the fitted models.
Dependencies. Core requires {dagitty}. Optional enhancements: {modelsummary}
(pretty tables), {broom} (fallback tidying), {rmarkdown} + pandoc (DOCX),
{writexl} (XLSX), {dotwhisker}/{ggplot2} for plotting.
Raw vs Weighted Direct Effect The unweighted sequential-g estimator in DirectEffects uses linear regression in its second stage. By the Frisch–Waugh–Lovell theorem, this implies an estimand that is weighted by the conditional variance of the (residualized) exposure given controls—i.e., a regression-weighted average of unit-level effects, not a sample-average controlled direct effect. DAGassist therefore reports both the raw sequential-g result and a weighted sequential-g refit (using WeightIt IPW weights estimated without mediators) to target the sample average controlled direct effect.
A DAGassist_report object (a named list) returned invisibly for file/plot
outputs and printed for type = "console".
The object contains:
List. Output of validate_spec(): DAG validity + exposure/outcome checks.
data.frame. Raw node-role flags from classify_nodes().
data.frame. Roles table formatted for printing/export.
Named character vector. Variable → display label map used in tables/plots.
Character vector. (Legacy) One minimal adjustment set.
List of character vectors. All minimal adjustment sets.
Character vector. Canonical adjustment set (possibly empty).
Named list. Filtered canonical sets created by exclude.
List. Parsed conditional statements from the DAG (if any).
List. User formula plus DAG-derived formula variants (minimal/canonical/etc.).
List. Fitted models for each formula variant (including minimal-list fits).
Character vector. RHS terms classified as mediator/collider/etc.
Character vector. Terms carried through but not evaluated by the engine.
Character scalar. Pretty-printed version of unevaluated.
List. Print/export settings, including coef_omit and show.
data.frame or NULL. The data used to fit models (stored for downstream helpers).
For file outputs (type = "latex", "docx", "xlsx", "txt", "dotwhisker"),
the returned object includes attribute file, the normalized output path.
print.DAGassist_report() and vignette("DAGassist", package = "DAGassist").
# toy_dag and toy_data ship with the package; the true total effect # of X on Y is recovered by adjusting for Z alone. # 1) Core: DAG-derived specs + engine-call parsing DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data)) # 2) Roles grid only DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), show = "roles") # 3) Target sample-average estimands via weighting DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), estimand = "total") # 4) File export (LaTeX fragment) out <- file.path(tempdir(), "dagassist_report.tex") DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), type = "latex", out = out)# toy_dag and toy_data ship with the package; the true total effect # of X on Y is recovered by adjusting for Z alone. # 1) Core: DAG-derived specs + engine-call parsing DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data)) # 2) Roles grid only DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), show = "roles") # 3) Target sample-average estimands via weighting DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), estimand = "total") # 4) File export (LaTeX fragment) out <- file.path(tempdir(), "dagassist_report.tex") DAGassist(toy_dag, lm(Y ~ X + Z + M, data = toy_data), type = "latex", out = out)
Given a DAG plus one or more edges whose direction is uncertain (a PDAG), enumerate every acyclic orientation and report whether the minimal/canonical adjustment sets or covariate roles change – i.e., whether your estimand is robust to that structural uncertainty.
pdag_robustness( dag, exposure, outcome, uncertain_edges = NULL, pdag = NULL, formula = NULL, max_uncertain = 10L )pdag_robustness( dag, exposure, outcome, uncertain_edges = NULL, pdag = NULL, formula = NULL, max_uncertain = 10L )
dag |
A |
exposure, outcome
|
Optional; inferred from the DAG when omitted. |
uncertain_edges |
Character vector like |
pdag |
Optional |
formula |
Optional model formula; used to decide whether an ambiguous covariate is actually in your specification (affects re-estimation advice). |
max_uncertain |
Integer guard on the number of uncertain edges (default 10 -> up to 1024 worlds). |
A DAGassist_pdag_summary object (printed as a bullet summary).
# What if we're unsure which way two arrows point? pdag_robustness(toy_dag, uncertain_edges = c("Z -- X", "M -- Y"))# What if we're unsure which way two arrows point? pdag_robustness(toy_dag, uncertain_edges = c("Z -- X", "M -- Y"))
Print an edge-addition (exclusion) robustness summary
## S3 method for class 'DAGassist_addedge_summary' print(x, ...)## S3 method for class 'DAGassist_addedge_summary' print(x, ...)
x |
A |
... |
Ignored. |
Invisibly returns x.
Print a PDAG robustness summary
## S3 method for class 'DAGassist_pdag_summary' print(x, ...)## S3 method for class 'DAGassist_pdag_summary' print(x, ...)
x |
A |
... |
Ignored. |
Invisibly returns x.
Nicely prints the roles table, highlights potential bad controls, shows
minimal/canonical adjustment sets, optionally shows formulas, and renders a
compact model comparison (using {modelsummary} if available, falling back
to {broom} or basic coef() preview).
## S3 method for class 'DAGassist_report' print(x, ...)## S3 method for class 'DAGassist_report' print(x, ...)
x |
A |
... |
Additional arguments (currently unused; present for S3 compatibility). |
The printer respects the verbose flag in the report: when TRUE, it
includes formulas and a brief note on variables added by DAG logic (minimal
and canonical sets). Fitting errors are shown inline per model column and do
not abort printing.
Invisibly returns x.
Print node classifications (aligned)
## S3 method for class 'DAGassist_roles' print(x, n = Inf, ...)## S3 method for class 'DAGassist_roles' print(x, n = Inf, ...)
x |
Output of classify_nodes() (class "DAGassist_roles") |
n |
Max rows to print (default all) |
... |
(ignored) |
Invisibly returns x
Minimal, clean printout for validation results with color coding
## S3 method for class 'DAGassist_validation' print(x, n = 10, ...)## S3 method for class 'DAGassist_validation' print(x, n = 10, ...)
x |
the list (class |
n |
Max number of issues to show (default 10). |
... |
Ignored. |
Invisibly returns x.
The graph used to simulate toy_data, with X marked as the exposure
and Y as the outcome. Pass it directly to DAGassist().
toy_dagtoy_dag
A dagitty object with 7 nodes.
Defined in data-raw/make_data.R.
A small simulated dataset in which each causal role that DAGassist()
classifies appears at least once. Generated from toy_dag, so the
correct adjustment set is known by construction: the total effect of
X on Y requires adjusting for Z alone.
toy_datatoy_data
A data frame with 2,000 rows and 7 columns:
Exposure. Caused by Z.
Outcome. Caused by X, M, Z, A, and B.
Confounder: a common cause of X and Y.
Mediator: lies on the path X -> M -> Y.
Collider: a common descendant of X and Y.
Neutral control on the outcome; affects Y only.
Neutral control on the outcome; affects Y only.
The data-generating process is linear and Gaussian with
set.seed(42). True coefficients are X -> Y = 0.7, M -> Y = 0.6,
Z -> Y = 0.3, A -> Y = 0.2, B -> Y = -0.1.
Simulated by data-raw/make_data.R.
toy_dag for the generating graph.
The graph used to simulate turnout_data, with income marked as the
exposure and turnout as the outcome. Node coordinates and display labels
are attached, so it plots directly with ggdag::ggdag_status(). Pass it to
DAGassist() to classify covariates and re-estimate against DAG-derived
adjustment sets.
turnout_dagturnout_dag
A dagitty object with 7 nodes and 10 edges.
Minimal sufficient adjustment sets, as returned by
dagitty::adjustmentSets():
Total effect: {age, state}
Direct effect: {age, polint, state}
Canonical (total): {age, elect_comp, industry, state}
Defined in data-raw/make_data.R.
A simulated cross-section used to demonstrate the DAGassist() workflow on
an applied question: does higher income increase voter turnout? Because the
data-generating process is known, the correct answer is known too, and the
cost of a misspecified control set can be read directly off the output.
turnout_dataturnout_data
A data frame with 5,000 rows and 7 columns:
Outcome. Voter turnout propensity.
Exposure. Caused by state, age, and industry.
Confounder: a common cause of income and turnout.
Confounder: affects income, turnout, and industry.
Political interest. A mediator on the path
income -> polint -> turnout. Adjusting for it removes the indirect
effect and is a bad control for the total effect.
A cause of income lying on the back-door path
income <- industry <- age -> turnout. Safe to adjust for, but not
required once age is included.
Election competitiveness. A neutral control on the
outcome: it affects turnout only, so adjusting for it leaves the
estimate unbiased and improves precision.
Generated from turnout_dag with set.seed(42). Income raises turnout
directly (0.30) and indirectly by raising political interest
(0.50 * 0.40 = 0.20), so the true total effect is 0.50 and the
true direct effect is 0.30.
Adjusting for {age, state} recovers the total effect; adjusting for
{age, polint, state} recovers the direct effect. Regressing turnout on
every available covariate returns roughly 0.28 — close to the direct
effect, because conditioning on the mediator polint silently changes the
estimand rather than producing an obviously wrong number.
Simulated by data-raw/make_data.R.
turnout_dag for the generating graph; toy_data for a smaller example covering every causal role.