ci.adaptive_iptw: Confidence intervals for adaptive_iptw objects

View source: R/confint.R

ci.adaptive_iptwR Documentation

Confidence intervals for adaptive_iptw objects


Estimate confidence intervals for objects of class "adaptive_iptw"


## S3 method for class 'adaptive_iptw'
ci(object, est = c("iptw_tmle"), level = 0.95, contrast = NULL, ...)



An object of class "adaptive_iptw"


A vector indicating for which estimators to return a confidence interval. Possible estimators include the TMLE IPTW ("iptw_tmle", recommended), the one-step IPTW ("iptw_os", not recommended), the standard IPTW ("iptw", recommended only for comparison to the other two estimators).


The nominal coverage probability of the desired confidence interval (should be between 0 and 1). Default computes 95\ intervals.


Specifies the parameter for which to return confidence intervals. If contrast=NULL, then confidence intervals for the marginal means are computed. If instead, contrast is a numeric vector of ones, negative ones, and zeros to define linear combinations of the various means (e.g., to estimate an average treatment effect, see example). Finally, contrast can be a list with named functions f, f_inv, h, and fh_grad. The first two functions should take as input argument eff. Respectively, these specify which transformation of the effect measure to compute the confidence interval for and the inverse transformation to put the confidence interval back on the original scale. The function h defines the contrast to be estimated and should take as input est, a vector of the same length as object$a_0, and output the desired contrast. The function fh_grad is the gradient of the function h. See examples and vignette for more information.


Other options (not currently used).


An object of class "ci.adaptive_iptw" with point estimates and confidence intervals of the specified level.


# load super learner
# fit adaptive_iptw
n <- 200
W <- data.frame(W1 = runif(n), W2 = rnorm(n))
A <- rbinom(n, 1, plogis(W$W1 - W$W2))
Y <- rbinom(n, 1, plogis(W$W1 * W$W2 * A))

fit1 <- adaptive_iptw(
  W = W, A = A, Y = Y, a_0 = c(1, 0),
  SL_g = c("SL.glm", "SL.mean", "SL.step"),
  SL_Qr = "SL.glm"

# get confidence intervals for each mean
ci_mean <- ci(fit1)

# get confidence intervals for ATE
ci_ATE <- ci(fit1, contrast = c(1, -1))

# get confidence intervals for risk ratio
# by inputting own contrast function
# this computes CI on log scale and back transforms
myContrast <- list(
  f = function(eff) {
  f_inv = function(eff) {
  h = function(est) {
    est[1] / est[2]
  fh_grad = function(est) {
    c(1 / est[1], -1 / est[2])
ci_RR <- ci(fit1, contrast = myContrast)

drtmle documentation built on Jan. 6, 2023, 1:23 a.m.