prmatrix(m6 <- diag(6), rowlab = rep("", 6), collab = rep("", 6))
chm <- matrix(scan(system.file("help", "AnIndex", package = "splines"),
what = ""), , 2, byrow = TRUE)
chm # uses print.matrix()
prmatrix(chm, collab = paste("Column", 1:3), right = TRUE, quote = FALSE)
Run the code above in your browser using DataLab