# all three conditions are binary, having two levels: 0 and 1
noflevels <- c(2, 2, 2)
# 2 4 5 10 11 13 14
findSupersets(noflevels + 1, 14)
# 2 7 8 10 11 16 17
findSupersets(noflevels + 1, 17)
# both line numbers 14 and 17
# 2 4 5 7 8 10 11 13 14 16 17
findSupersets(noflevels + 1, c(14, 17))
# input.combs as a matrix
(input.combs <- getRow(noflevels + 1, c(14, 17)))
# [,1] [,2] [,3]
#[1,] 1 1 1
#[2,] 1 2 1
# 2 4 5 7 8 10 11 13 14 16 17
findSupersets(noflevels + 1, input.combs)
Run the code above in your browser using DataLab