B_sets = matrix(c(FALSE, FALSE, FALSE, FALSE,
TRUE , FALSE, FALSE, FALSE,
TRUE , TRUE , FALSE, FALSE,
TRUE , TRUE , TRUE , TRUE),
nrow = 4, byrow = TRUE)
colnames(B_sets) <- c("U1", "U2", "U3", "U4")
B_sets_cut_increments(B_sets)
Run the code above in your browser using DataLab