# matrix
printLatexMatrix <- function(M, type = "bmatrix") {
  m.string <- paste("\\\\begin{",type,"} ", sep="")
  M <- as.matrix(M)
  nrow <- dim(M)[1]
  ncol <- dim(M)[2]
  #
  for (i in 1:nrow) {
    for (j in 1:(ncol-1)) {
      m.string <- paste(m.string, M[i,j], "&")
    }
    if(i == nrow) {
      m.string <- paste(m.string, M[i,ncol])
    }
    else {
      m.string <- paste(m.string, M[i,ncol], "\\\\\\\\")
    }
  } # end for row

  #
  m.string <- paste(m.string, " \\\\end{",type,"}", sep="")
}