> x <- c(9,9:1) > y <- c(1,1,3:1,1:4,3) > z <-c(2,1:9) > mat<-matrix(c(x,y,z),nrow=length(x)) > mat [,1] [,2] [,3] [1,] 9 1 2 [2,] 9 1 1 [3,] 8 3 2 [4,] 7 2 3 [5,] 6 1 4 [6,] 5 1 5 [7,] 4 2 6 [8,] 3 3 7 [9,] 2 4 8 [10,] 1 3 9 > ordmat<-mat…