# Works essentially like an inverse of whichsvzeroes():
test_set <- sc(5, 32)
whichsvzeroes(test_set)
generated_point <- point_on_flat(c(5, 8, 10), card=5)
whichsvzeroes(generated_point)
# But note that the given point might lie on any face of the flat:
signvector(test_set)
signvector(generated_point)
# Works for other hyperplane arrangements:
point_on_flat(c(2, 3, 6), card=3, ineqmat="roth")
point_on_flat(c(2, 4), card=4, ineqmat="black")
# Not all combinations of hyperplanes admit a solution:
try(point_on_flat(c(1, 2, 3), card=3, ineqmat="roth"))
Run the code above in your browser using DataLab