labmat<-matrix(c(
c(1,1,1,1,1,1,1,1,1),
c(2,2,2,2,1,2,2,2,2), #labels do not appear in increasing order
c(2,2,1,2,2,3,3,3,3), # here too
c(1,1,2,2,2,2,2,3,3),
c(1,2,3,4,5,6,7,8,9)), ncol=9, byrow=TRUE)
relabel.matrix(labmat) # gives the relabelled matrix
Run the code above in your browser using DataLab