# \donttest{
data(jobcorps)
## Split male/female
jobcorps_female <- subset(jobcorps, female == 1)
## Telescope matching formula - First stage (X and Z)
tm_form <- exhealth30 ~ schobef + trainyrbef + jobeverbef |
treat | emplq4 + emplq4full | work2year2q
### Estimate ACDE for women holding employment at 0
tm_out <- telescope_match(
tm_form,
data = jobcorps_female,
L = 3,
boot = FALSE,
verbose = TRUE
)
out.boots <- boots_tm(tm_out)
out.boots
# }
Run the code above in your browser using DataLab