如何使用工具变量在R中进行两阶段逻辑回归

Question

问题是，考虑到患者的治疗前和治疗后特征，当医生选择治疗方法时，如何消除支付的影响？ 多数民众赞成在：

T = b3 * X + b4 * Z + U2

Y = b1 * X + b2 * T + U1

Z表示付款，即工具变量。

工具变量估算有效吗？这是IV的正确用法吗？

map(list,
    add_column,
    ~ year = names(.x))