I am trying to delete both a matrix in mathematica. An inelegant way of doing it is as I do below, i.e specifying it in a new matrix as
S = Table[ Ss[[
I think you are looking for:
Drop[Ss,{t},{t}]
Timings:
ClearAll["Global`*"]; First@Timing[a = RandomInteger[1000, {5000, 5000}];] 0.34 First@Timing[Drop[a, {2}, {2}]] 0.11
While
First@Timing[Transpose@Delete[Transpose@Delete[a, 2], 2]] 0.5