# NOT RUN {
data(adapt)
est <- pate(y ~ treatment*x + treatment*I(x ^ 2), data = adapt,
estimator = "bayesian_lm", src_var = "source", primary_source = "Primary",
trt_var = "treatment")
credint(est)
# }
Run the code above in your browser using DataLab