Draws a sample from the invariant measure on the Stiefel manifold S(p, q).
rStiefel(p, q)
p
row dimension
q
col dimension
p x q semi-orthogonal matrix.
V <- rStiefel(6, 4)