x <- log_linear_main_effect_design(vision_data)
new_column <- c(1, 0, 0, 0,
0, 1, 0, 0,
0, 0, 1, 0,
0, 0, 0, 1)
x_prime <- log_linear_append_column(x, new_column)
Run the code above in your browser using DataLab