I have a code that rearranges elements of a matrix as;
A <- matrix(seq(4),nrow = 2,byrow = T) df_w = data.frame(matrix(0, nrow=length(A)*nrow(A), ncol=2))