Summary Method for an Object of Class ctmeddelta
Source: R/cTMed-methods-ctmeddelta.R
summary.ctmeddelta.RdSummary Method for an Object of Class ctmeddelta
Usage
# S3 method for ctmeddelta
summary(object, alpha = 0.05, ...)Arguments
- object
Object of class
ctmeddelta.- alpha
Numeric vector. Significance level \(\alpha\).
- ...
additional arguments.
Value
Returns a matrix of effects, time interval, estimates, standard errors, test statistics, p-values, and confidence intervals.
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"
)
summary(delta)
#> effect interval est se z p 2.5%
#> 1 total 1 -0.1000384 0.03288098 -3.042439 2.346691e-03 -0.1644839
#> 2 direct 1 -0.2674539 0.04364490 -6.127952 8.901719e-10 -0.3529963
#> 3 indirect 1 0.1674155 0.01942918 8.616704 6.890881e-18 0.1293350
#> 97.5%
#> 1 -0.03559285
#> 2 -0.18191145
#> 3 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"
)
summary(delta)
#> effect interval est se z p 2.5%
#> 1 total 1 -0.1000384 0.03288098 -3.042439 2.346691e-03 -0.164483903
#> 2 direct 1 -0.2674539 0.04364490 -6.127952 8.901719e-10 -0.352996324
#> 3 indirect 1 0.1674155 0.01942918 8.616704 6.890881e-18 0.129335016
#> 4 total 2 0.0799008 0.03698524 2.160343 3.074615e-02 0.007411056
#> 5 direct 2 -0.3209035 0.05122836 -6.264177 3.747993e-10 -0.421309236
#> 6 indirect 2 0.4008043 0.03890291 10.302682 6.852356e-25 0.324556004
#> 7 total 3 0.2508138 0.03655859 6.860599 6.857257e-12 0.179160303
#> 8 direct 3 -0.2914426 0.04852944 -6.005480 1.907663e-09 -0.386558557
#> 9 indirect 3 0.5422564 0.04929290 11.000699 3.791795e-28 0.445644109
#> 10 total 4 0.3449279 0.03499303 9.857046 6.390162e-23 0.276342831
#> 11 direct 4 -0.2373900 0.04329747 -5.482768 4.187214e-08 -0.322251508
#> 12 indirect 4 0.5823179 0.05480696 10.624891 2.282791e-26 0.474898266
#> 13 total 5 0.3692538 0.03418778 10.800755 3.413856e-27 0.302246977
#> 14 direct 5 -0.1828447 0.03761138 -4.861420 1.165464e-06 -0.256561662
#> 15 indirect 5 0.5520985 0.05705207 9.677098 3.772724e-22 0.440278497
#> 97.5%
#> 1 -0.03559285
#> 2 -0.18191145
#> 3 0.20549601
#> 4 0.15239055
#> 5 -0.22049777
#> 6 0.47705260
#> 7 0.32246735
#> 8 -0.19632665
#> 9 0.63886875
#> 10 0.41351299
#> 11 -0.15252853
#> 12 0.68973759
#> 13 0.43626060
#> 14 -0.10912777
#> 15 0.66391851