# NOT RUN {
#input the abciximab study data of Kereiakes et al. (2000).
data(lindner)
linVars <- c("stent", "height", "female", "diabetic", "acutemi",
"ejecfrac", "ves1proc")
results <- LocalControl(data = lindner,
clusterVars = linVars,
treatmentColName = "abcix",
outcomeColName = "cardbill",
treatmentCode = 1)
#Calculate the confidence intervals via resampling.
confResults = LocalControlNearestNeighborsConfidence(
data = lindner,
clusterVars = linVars,
treatmentColName = "abcix",
outcomeColName = "cardbill",
treatmentCode = 1, nBootstrap = 20)
# Plot the local treatment difference with confidence intervals.
plot(results, confResults)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab