Count occurrence of factors and sum them up in both rows and columns in R

Question

I have this table:

smoke <- matrix(c("one"," ","three","four "," "," ",
              " &q