Summing opposite directional vectors of a matrix in R

Question

I have a matrix, for example:

mat <- matrix(sample.int(100,100),10,10)

Each vector of the matrix represents the number of times an event o