library(shellpipes)
library(dplyr)
library(effects)
loadEnvironments()
effects_iv <- (Effect("age", fit
, type="response"
, xlevels=list(age=unique(focal))
)
|> data.frame()
|> rename(
, lwr=lower
, upr=upper
)
|> mutate(model="Effect")
)
head(effects_iv)
saveVars(effects_iv)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.