(S <- spray(matrix(c(1,1,2,2,1,3,3,1,3,5),ncol=2,byrow=TRUE),1:5))
kill_trivial_rows(S) # (rows 1 and 3 killed, repeated entries)
consolidate(S) # (merges rows 2 and 4)
include_perms(S) # returns a spray object, not alternating tensor.
Run the code above in your browser using DataLab