# 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)
# }
# NOT RUN {
include_perms(S)
# }
# NOT RUN {
# This will fail because of the repeated rows
include_perms(kill_trivial_rows(S)) # This should work
# }
Run the code above in your browser using DataCamp Workspace