# NOT RUN {
x <- model_parameters(lm(Sepal.Length ~ Species * Sepal.Width, data = iris))
x <- .colour_column_if(x,
name = "CI_low", condition = `<`, threshold = 0,
colour_if = "red", colour_else = "green"
)
x <- .colour_column_if(x,
name = "p", condition = `<`, threshold = 0.05,
colour_if = "yellow", colour_else = NULL
)
.display.data.frame(x)
# }
Run the code above in your browser using DataLab