Thanks. I found that the design matrix is the inverse of what I want. Basically the 1 and 0 in the q1a_selected_col_data$cre_loxflox column should be switched since cre is the experimental group.
I tried model.matrix(~q1a_selected_col_data$cre_lox-1) after uing droplevels to invert it and now I get this:
q1a_selected_col_data$cre_loxflox q1a_selected_col_data$cre_loxcre
1 1 0
2 1 0
3 1 0
4 0 1
5 0 1
6 0 1
I want the last column. Is there a way I can select the label model.matrix should mark as "1"?