Skip to content
Prev 305000 / 398506 Next

creating a symmetric matrix

David L Carlson 
You asked for existing functions, but I was more intrigued by trying to
create one:

symmat <- function(n) {
     x <- matrix(1:n, nrow=n, ncol=n)
     abs(x-col(x))+1
}
[,1] [,2] [,3] [,4]
[1,]    1    2    3    4
[2,]    2    1    2    3
[3,]    3    2    1    2
[4,]    4    3    2    1

----------------------------------------------
David L Carlson
Associate Professor of Anthropology
Texas A&M University
College Station, TX 77843-4352

Thread (4 messages)

Erin Hodgess creating a symmetric matrix Sep 6 William Dunlap creating a symmetric matrix Sep 6 David L Carlson creating a symmetric matrix Sep 7 Bert Gunter creating a symmetric matrix Sep 7