## scan the multiplication table data
s <- matrix(data=c(1, 1, 1, 3, 3, 3, 3, 3, 3), nrow=3, ncol=3, byrow=TRUE)
## transform the matrix to a list format
transf(s, lb2lb = TRUE, labels = c('n','m','<f1>'))
Run the code above in your browser using DataLab