alike(matrix(character(), nrow = 3), matrix(1:21, nrow = 3))

`matrix(1:21, nrow = 3)` should be type "character" (is "integer")

[1] "`matrix(1:21, nrow = 3)` should be type \"character\" (is \"integer\")"

alike(matrix(integer(), nrow = 4), matrix(1:21, nrow = 3))

`matrix(1:21, nrow = 3)` should have 4 rows (has 3)

[1] "`matrix(1:21, nrow = 3)` should have 4 rows (has 3)"

alike(matrix(integer(), ncol = 3, dimnames = list(NULL, c("R", 
    "G", "B"))), matrix(1:21, ncol = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:21, ncol = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

`matrix(1:21, ncol = 3, dimnames = list(NULL, c("R", "G", "B")))` should have 3 rows (has 7)

[1] "`matrix(1:21, ncol = 3, dimnames = list(NULL, c(\"R\", \"G\", \"B\")))` should have 3 rows (has 7)"

alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:9, nrow = 3, dimnames = list(NULL, 
    c("R", "G", "B"))))

row.names(matrix(1:9, nrow = 3, dimnames = list(NULL, c("R", 
    "G", "B"))))
should be type "character" (is "NULL")

[1] "row.names(matrix(1:9, nrow = 3, dimnames = list(NULL, c(\"R\", \n    \"G\", \"B\"))))\nshould be type \"character\" (is \"NULL\")"

alike(matrix(integer(), nrow = 3, dimnames = list(c("R", "G", 
    "B"), NULL)), matrix(1:9, nrow = 3, dimnames = list(c("R", 
    "G", "B"), c("bacon", "turkey", "bravo"))))

[1] "`1:9` should be \"matrix\" (is \"integer\")"

mx.tpl <- matrix(integer(), ncol = 3, dimnames = list(row.id = NULL, 
    c("R", "G", "B")))

mx.cur <- matrix(sample(0:255, 12), ncol = 3, dimnames = list(row.id = 1:4, 
    rgb = c("R", "G", "B")))

mx.cur2 <- matrix(sample(0:255, 12), ncol = 3, dimnames = list(1:4, 
    c("R", "G", "B")))

`names(dimnames(mx.cur2))` should be type "character" (is "NULL")

[1] "`names(dimnames(mx.cur2))` should be type \"character\" (is \"NULL\")"

`1:3` should be class "data.frame" (is "integer")

[1] "`1:3` should be class \"data.frame\" (is \"integer\")"