x <- log_linear_main_effect_design(vision_data)
linear <- log_linear_create_linear_by_linear(vision_data)
x_prime <- log_linear_append_column(x, linear)
x_again <- log_linear_remove_column(x_prime, ncol(x_prime))
Run the code above in your browser using DataLab