用R中的相互作用项计算斜率和截距

如何在R中解决以下问题

日志D=a+b1*生产数量+b2*直接生产+b3*子生产+b4*生产数量*直接生产

LOG_D=LOG（持续时间在站点花费的总时间，以分钟为单位）

产品数量=住户购买产品的数量

DIRECT_D=一个虚拟变量，指示交易是直接来自酒店网站（1）还是其他第三方旅游网站（0）

CHILD_D=一个虚拟变量，指示家庭是否有子女

---

我需要找出产品数量对日志持续时间的影响。计算1）直接从酒店网站和2）其他第三方旅游网站产生的交易的截距和斜率，分别为

更简单地说，您拥有的是$Y=B_0+B_1 X_1+B_2 X_2+B_3 X_3+B_4 X_1 X_2$。获取您对$B_0$、$B_1$、$B_2$和$B_4$的估计值（$B_3$与此问题无关）。只需插入$X_2$的$0$和$1$，并移动一些术语进行评估。当$X_2=1$时，您的方程如下所示

$$Y = B_0 + B_1 X_1 + B_2 * 1 + B_3 X_3 + B_4 X_1 *1
= B_0 + B_1 X_1 + B_2 + B_3 X_3 + B_4 X_1 
= (B_0 + B_2) + (B_1 + B_4) X_1 + B_3 X_3 $$

现在，$X_1$的斜率和截距分别是$（B_1+B_4）$和$（B_0+B_2）$。您可以使用$X_2=0$执行相同的操作

[注意：我不知道如何让LeTeX在这里工作…]