here\'s some data:
m<-matrix(c(1,1 , 2,3 , 3,1 , 4,1 , 5,1 , 6,2 , 7,1 , 8,3 , 9,3 , 10,1 , 11,4 , 12,1 , 13,1 , 14,1 , 15,1 , 16,2 ,