View source: R/summary.CIMTx_ATT_posterior.R
summary.CIMTx_ATT_posterior | R Documentation |
Summarize a CIMTx_ATT_posterior object
## S3 method for class 'CIMTx_ATT_posterior' summary(object, ...)
object |
a |
... |
further arguments passed to or from other methods. |
a list with w-1 elements for ATT effect. Each element of the list contains the estimation, standard error, lower and upper 95% CI for RD/RR/OR.
Hadley Wickham (2019). stringr: Simple, Consistent Wrappers for Common String Operations. R package version 1.4.0. URL:https://CRAN.R-project.org/package=stringr
lp_w_all <- c( ".4*x1 + .1*x2 - .1*x4 + .1*x5", # w = 1 ".2 * x1 + .2 * x2 - .2 * x4 - .3 * x5" ) # w = 2 nlp_w_all <- c( "-.5*x1*x4 - .1*x2*x5", # w = 1 "-.3*x1*x4 + .2*x2*x5" ) # w = 2 lp_y_all <- rep(".2*x1 + .3*x2 - .1*x3 - .1*x4 - .2*x5", 3) nlp_y_all <- rep(".7*x1*x1 - .1*x2*x3", 3) X_all <- c( "rnorm(0, 0.5)", # x1 "rbeta(2, .4)", # x2 "runif(0, 0.5)", # x3 "rweibull(1,2)", # x4 "rbinom(1, .4)" # x5 ) set.seed(111111) data <- data_sim( sample_size = 300, n_trt = 3, x = X_all, lp_y = lp_y_all, nlp_y = nlp_y_all, align = FALSE, lp_w = lp_w_all, nlp_w = nlp_w_all, tau = c(-1.5, 0, 1.5), delta = c(0.5, 0.5), psi = 1 ) ce_estimate_ra_att_result <- ce_estimate( y = data$y, x = data$covariates, w = data$w, reference_trt = 1, ndpost = 10, method = "RA", estimand = "ATT" ) summary(ce_estimate_ra_att_result)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.