inst/tests/test-cat.matrix.R

In drmjc/mjcbase: General helper functions for dealing with \R objects/data types

context("cat.matrix suite")

test_that("cat.matrix works", {
	m <- matrix(1:9,3,3)
	m.r <- m; rownames(m.r) <- LETTERS[1:3]
	m.c <- m; colnames(m.c) <- letters[1:3]
	m.rc <- m.c; rownames(m.rc) <- LETTERS[1:3]

	df <- as.data.frame(m)
	df.r <- df; rownames(df.r) <- LETTERS[1:3]
	df.c <- df; colnames(df.c) <- letters[1:3]
	df.rc <- df.c; rownames(df.rc) <- LETTERS[1:3]
	
	for(rn in c(TRUE, FALSE)) {
		for(cn in c(TRUE, FALSE)) {
			cat(sprintf("Testing rownames %d, colnames %d.\n", rn, cn))
			cat("matrices.\n")
			cat("no dimnames.\n")
			cat.matrix(m, row.names=rn, col.names=cn)
			cat("only rownames.\n")
			cat.matrix(m.r, row.names=rn, col.names=cn)
			cat("only colnames.\n")
			cat.matrix(m.c, row.names=rn, col.names=cn)
			cat("has dimnames.\n")
			cat.matrix(m.rc, row.names=rn, col.names=cn)

			cat("data.frames.\n")
			cat("no dimnames.\n")
			cat.matrix(df, row.names=rn, col.names=cn)
			cat("only rownames.\n")
			cat.matrix(df.r, row.names=rn, col.names=cn)
			cat("only colnames.\n")
			cat.matrix(df.c, row.names=rn, col.names=cn)
			cat("has dimnames.\n")
			cat.matrix(df.rc, row.names=rn, col.names=cn)
		}
	}
})