# NOT RUN {
result <- regress("diamonds", "price", c("carat","clarity"))
summary(result, sum_check = c("rmse","sumsquares","vif","confint"), test_var = "clarity")
result <- regress("ideal", "y", c("x1","x2"))
summary(result, test_var = "x2")
ideal %>% regress("y", "x1:x3") %>% summary
# }
Run the code above in your browser using DataLab