计算Tobit in R中假人的边际效应（及其标准误差）

我有一个标准的Tobit模型，其中唯一的解释变量是治疗的虚拟变量（加上截距），我想估计这种治疗对我的因变量的边际影响，以及这种治疗的标准误差

我知道R中的mfx包能够恢复Probit和Logit模型所需的功能，但我找不到Tobit的类似包。是否有人知道一个包可以做到这一点，或者如何通过“手动”恢复ME及其标准错误？谢谢

编辑： AER软件包有一个估计Tobit模型的函数，所以我想用它来计算ME（以及ME的标准误差）。下面是我使用AER软件包中的数据所做的一个示例

library(AER)

data("CollegeDistance")

model <- tobit(CollegeDistance$education ~ CollegeDistance$gender, left = 0, data = CollegeDistance, x= TRUE)

库（AER）
数据（“收集距离”）
我们可以要一个模型吗？@BenBolker，抱歉刚刚编辑了更多信息！请给我们一张照片好吗？@BenBolker，对不起，刚刚编辑了更多信息！