# NOT RUN {
S <- spray(matrix(c(1,1,2,2,1,3,3,1,3,5),ncol=2,byrow=TRUE),1:5)
kill_trivial_rows(S)
consolidate(S)
## Function include_perms() expects no trivial rows:
# }
# NOT RUN {
include_perms(S)
# }
# NOT RUN {
# fails (row 1 and row 3 are repeated)
include_perms(kill_trivial_rows(S)) # This should work
# }
Run the code above in your browser using DataLab