R：获取每行数据的lsmeans

Question

我目前正在尝试在负二项模型上使用lsmeans来获取数据集中每个参与者的最小平方均值。我可以通过我的兴趣来确定lsmeans，但不能为每个参与者调整手段。到目前为止我的代码发布在下面：

library(MASS)
library(lsmeans)

m1 <- zeroinfl(exposure ~ BMI_Category,
           data = data_final, dist = "negbin", EM = TRUE)
summary(m1)

lsBact <- lsmeans(m1, specs = "BMI_Category")

任何帮助将不胜感激！谢谢！