# NOT RUN {
data(petsdata)
# }
# NOT RUN {
sbdecomp(outcome = petsdata$genhealth, treatment = petsdata$gotdog, confounders =
as.data.frame(petsdata[,c(2:13)]), type = "inclusion", estimation = "parametric")
# }
# NOT RUN {
# }
# NOT RUN {
sbdecomp(outcome = petsdata$genhealth, treatment = petsdata$gotdog, confounders =
as.data.frame(petsdata[,c(2:13)]), type = "inclusion", estimation = "parametric",
Bonly =FALSE, balance = TRUE)
# }
# NOT RUN {
# }
# NOT RUN {
sbdecomp(outcome = "genhealth", treatment = "gotdog", confounders = c("age",
"ismale", "race_coll","hhsize","ownhome", "married", "ontanf", "hhincome",
"fulltime","spouse_fulltime" ,"liveinhouse", "ruralurban"), data = petsdata,
type = "inclusion", estimation = "parametric", Bonly =FALSE, balance = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab