Generate Gap Targets
hfr_gap_target(df, quarters_complete)
data frame created by extract_datim()
MER quarters with data available
if (FALSE) {
myuser <- "UserX"
mech_x_targets <- extract_datim(00001, myuser, mypwd(myuser))
mech_x_targets <- hfr_gap_target(mech_x_targets, 2) }