if (FALSE) { # rlang::is_installed("drc")
# load libraries for models and data
library(drc)
# fit model
mod <- drm(dead / total ~ conc, type,
weights = total, data = selenium, fct = LL.2(), type = "binomial"
)
# summarize model fit with tidiers
tidy(mod)
tidy(mod, conf.int = TRUE)
glance(mod)
augment(mod, selenium)
}
Run the code above in your browser using DataLab