# NOT RUN {
model <- lm(Sepal.Length ~ Species, data = iris)
format_algorithm(model)
if (require("lme4")) {
model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)
format_algorithm(model)
}
model <- lm(Sepal.Length ~ Species, data = iris)
format_formula(model)
if (require("lme4")) {
model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)
format_formula(model)
format_formula(model, "random")
}
model <- lm(Sepal.Length ~ Species, data = iris)
format_model(model)
if (require("lme4")) {
model <- lme4::lmer(Sepal.Length ~ Sepal.Width + (1 | Species), data = iris)
format_model(model)
}
# }
Run the code above in your browser using DataLab