Delta Method Confidence Intervals

Usage

# S3 method for class 'ctmeddelta'
confint(object, parm = NULL, level = 0.95, ...)

Arguments

object: Object of class ctmeddelta.
parm: a specification of which parameters are to be given confidence intervals, either a vector of numbers or a vector of names. If missing, all parameters are considered.
level: the confidence level required.
...: additional arguments.

Value

Returns a data frame of confidence intervals.

Author

Ivan Jacob Agaloos Pesigan

Examples

phi <- matrix(
  data = c(
    -0.357, 0.771, -0.450,
    0.0, -0.511, 0.729,
    0, 0, -0.693
  ),
  nrow = 3
)
colnames(phi) <- rownames(phi) <- c("x", "m", "y")
vcov_phi_vec <- matrix(
  data = c(
    0.002704274, -0.001475275, 0.000949122,
    -0.001619422, 0.000885122, -0.000569404,
    0.00085493, -0.000465824, 0.000297815,
    -0.001475275, 0.004428442, -0.002642303,
    0.000980573, -0.00271817, 0.001618805,
    -0.000586921, 0.001478421, -0.000871547,
    0.000949122, -0.002642303, 0.006402668,
    -0.000697798, 0.001813471, -0.004043138,
    0.000463086, -0.001120949, 0.002271711,
    -0.001619422, 0.000980573, -0.000697798,
    0.002079286, -0.001152501, 0.000753,
    -0.001528701, 0.000820587, -0.000517524,
    0.000885122, -0.00271817, 0.001813471,
    -0.001152501, 0.00342605, -0.002075005,
    0.000899165, -0.002532849, 0.001475579,
    -0.000569404, 0.001618805, -0.004043138,
    0.000753, -0.002075005, 0.004984032,
    -0.000622255, 0.001634917, -0.003705661,
    0.00085493, -0.000586921, 0.000463086,
    -0.001528701, 0.000899165, -0.000622255,
    0.002060076, -0.001096684, 0.000686386,
    -0.000465824, 0.001478421, -0.001120949,
    0.000820587, -0.002532849, 0.001634917,
    -0.001096684, 0.003328692, -0.001926088,
    0.000297815, -0.000871547, 0.002271711,
    -0.000517524, 0.001475579, -0.003705661,
    0.000686386, -0.001926088, 0.004726235
  ),
  nrow = 9
)

# Specific time interval ----------------------------------------------------
delta <- DeltaMed(
  phi = phi,
  vcov_phi_vec = vcov_phi_vec,
  delta_t = 1,
  from = "x",
  to = "y",
  med = "m"
)
confint(delta, level = 0.95)
#>     effect interval      2.5 %      97.5 %
#> 1    total        1 -0.1644839 -0.03559285
#> 2   direct        1 -0.3529963 -0.18191145
#> 3 indirect        1  0.1293350  0.20549601

# Range of time intervals ---------------------------------------------------
delta <- DeltaMed(
  phi = phi,
  vcov_phi_vec = vcov_phi_vec,
  delta_t = 1:5,
  from = "x",
  to = "y",
  med = "m"
)
confint(delta, level = 0.95)
#>      effect interval        2.5 %      97.5 %
#> 1     total        1 -0.164483903 -0.03559285
#> 2    direct        1 -0.352996324 -0.18191145
#> 3  indirect        1  0.129335016  0.20549601
#> 4     total        2  0.007411056  0.15239055
#> 5    direct        2 -0.421309236 -0.22049777
#> 6  indirect        2  0.324556004  0.47705260
#> 7     total        3  0.179160303  0.32246735
#> 8    direct        3 -0.386558557 -0.19632665
#> 9  indirect        3  0.445644109  0.63886875
#> 10    total        4  0.276342831  0.41351299
#> 11   direct        4 -0.322251508 -0.15252853
#> 12 indirect        4  0.474898266  0.68973759
#> 13    total        5  0.302246977  0.43626060
#> 14   direct        5 -0.256561662 -0.10912777
#> 15 indirect        5  0.440278497  0.66391851