result <- regression("diamonds", "price", c("carat","clarity"))
summary(result, reg_sum_check = c("rmse","sumsquares","vif","confint"), reg_test_var = "clarity")
result <- regression("shopping", "v1", c("v2","v3"))
summary(result, reg_test_var = "v2")
Run the code above in your browser using DataLab