require(emmeans)
set.seed(1149)
tab <- data.frame(
response <- c(rpois(30,0),rpois(30,2),rpois(30,4)),
fact <- gl(3,30,labels=LETTERS[1:3])
)
model <- lm(log(response+1)~fact,data=tab)
EMM <- emmeans(model,~fact)
back.emmeans(EMM,transform="log",add=1)
Run the code above in your browser using DataLab