# NOT RUN {
# Load test data
data(ccmm_test_data);
outcome <- ccmm_test_data[,1];
treatment <- ccmm_test_data[,2];
mediators <- as.matrix(ccmm_test_data[,3:22]);
covariates <- as.matrix(ccmm_test_data[,23:24]);
cisa <- tide.ci.zero.rho(outcome, mediators, treatment, covariates, n.boot=200)
# }
Run the code above in your browser using DataLab