Nothing
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
library(furniture)
library(MarginalMediation)
## -----------------------------------------------------------------------------
library(furniture)
data("nhanes_2010")
names(nhanes_2010)
## -----------------------------------------------------------------------------
pathbc <- glm(marijuana ~ home_meals + gender + age + asthma,
data = nhanes_2010,
family = "binomial")
patha <- glm(home_meals ~ gender + age + asthma,
data = nhanes_2010,
family = "gaussian")
mma(pathbc, patha,
ind_effects = c("genderFemale-home_meals",
"age-home_meals",
"asthmaNo-home_meals"),
boot = 500)
## -----------------------------------------------------------------------------
frames(pathbc,
boot = 100)
## ---- eval=FALSE--------------------------------------------------------------
# remotes::install_github("leeper/margins")
# library(margins)
# summary(margins(pathbc))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.