print.txshift_msm: Print Method for Marginal Structural Models
In txshift: Efficient Estimation of the Causal Effects of Stochastic Interventions

Description Usage Arguments Details Value Examples

Print Method for Marginal Structural Models

1 2	## S3 method for class 'txshift_msm' print(x, ...)

`x`	An object of class `txshift_msm`.
`...`	Other options (not currently used).

The print method for objects of class txshift_msm.

None. Called for the side effect of printing an informative summary of slots of objects of class txshift_msm.

if (require("sl3")) {
  set.seed(3287)
  n_obs <- 1000
  W <- as.numeric(replicate(1, rbinom(n_obs, 1, 0.5)))
  A <- as.numeric(rnorm(n_obs, mean = 2 * W, sd = 1))
  Y <- rbinom(n_obs, 1, plogis(2 * A - W))
  msm <- msm_vimshift(
    W = W, A = A, Y = Y, estimator = "tmle",
    g_exp_fit_args = list(
      fit_type = "sl",
      sl_learners_density = Lrnr_density_hse$new(Lrnr_glm$new())
    ),
    Q_fit_args = list(
      fit_type = "glm",
      glm_formula = "Y ~ ."
    ),
    delta_grid = seq(-1, 1, 0.25)
  )
  print(msm)
}