Check equal dimensions in data

[llrs]

Check that sapply(A, dim) have all rows equal, both in rgcca and sgcca