R: Получение lsmeans для каждой строки данных

Question

В настоящее время я пытаюсь использовать 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")

Любая помощь будет принята с благодарностью! Спасибо!