fit_full <- lm(Sepal.Length ~ ., data = iris)
fit_part <- lm(Sepal.Length ~ Petal.Length, data = iris)
mod_full <- flashlight(
model = fit_full, label = "full", data = iris, y = "Sepal.Length"
)
mod_part <- flashlight(
model = fit_part, label = "part", data = iris, y = "Sepal.Length"
)
mods <- multiflashlight(list(mod_full, mod_part))
eff <- light_effects(mods, v = "Species")
eff <- light_recode(
eff,
what = "type_name",
levels = c("response", "predicted", "partial dependence", "ale"),
labels = c("Observed", "Fitted", "PD", "ALE")
)
plot(eff, use = "all")
Run the code above in your browser using DataLab