Add test for shaped SSA

Check equivalence with Alex's old R code on random data