if (requireNamespace("robustbase", quietly = TRUE)) {
# load libraries for models and data
library(robustbase)
data(coleman)
set.seed(0)
m <- lmrob(Y ~ ., data = coleman)
tidy(m)
augment(m)
glance(m)
data(carrots)
Rfit <- glmrob(cbind(success, total - success) ~ logdose + block,
family = binomial, data = carrots, method = "Mqle",
control = glmrobMqle.control(tcc = 1.2)
)
tidy(Rfit)
augment(Rfit)
}
Run the code above in your browser using DataLab