# \donttest{
data(synth)
data(hearingdate_synth)
crt_power <- SpilloverCRTpower(
D = synth$D, Z = synth$Z,
CourtEvent_HearingDate = hearingdate_synth,
size = 1
) # adjust the size
PlotSpilloverCRTpower(crt_power)
# }
Run the code above in your browser using DataLab