## 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
s |> transf(lb2lb = TRUE, lbs = c('n','m','u'))
Run the code above in your browser using DataLab