powered by
Symm
Symm(...)
Diag
row <- gl(4, 4, 16) col <- gl(4, 1, 16) symm4by4 <- Symm(row, col) matrix(symm4by4, 4, 4)
Run the code above in your browser using DataLab