R to Mathematica

r2math.R

# Print an R matrix in a form that can be copied straight into mathematica

MathematicaPaste.matrix <- function(m){

  charmat <- apply(m, 2, as.numeric)
  charmat[, -NCOL(charmat)] <- paste0(charmat[, -NCOL(charmat)], ',')

  charmat <- rbind('{', t(charmat), '},')
  charmat[dim(charmat)[1], dim(charmat)[2]] <- '}'

  cat(paste0('{', paste(charmat, collapse = ''), '}\n'))

}