Make signal a row vector
ShapeAsRow(sig)
sig
a row or column vector.
row a row vector.
row
sig <- matrix(1:4) row <- ShapeAsRow(sig)