# NOT RUN {
# model
model <- lm(mpg ~ disp + hp + wt + drat, data = mtcars)
# Use fitted values of the model
ols_bp_test(model)
# Use independent variables of the model
ols_bp_test(model, rhs = TRUE)
# Use independent variables of the model and perform multiple tests
ols_bp_test(model, rhs = TRUE, multiple = TRUE)
# Bonferroni p value Adjustment
ols_bp_test(model, rhs = TRUE, multiple = TRUE, p.adj = 'bonferroni')
# Sidak p value Adjustment
ols_bp_test(model, rhs = TRUE, multiple = TRUE, p.adj = 'sidak')
# Holm's p value Adjustment
ols_bp_test(model, rhs = TRUE, multiple = TRUE, p.adj = 'holm')
# }
Run the code above in your browser using DataLab