phases <- rep(c("A","B","A","B"), each = 4)
sessions <- 1:length(phases)
phase_pairs(phases, sessions)
phases <- rep(c("A","B","C","A","B","C","D"), each = 4)
phase_pairs(phases)
phases <- rep(c("B","A","C","B","A","B","C","A"), each = 4)
phase_pairs(phases)
Run the code above in your browser using DataLab