tests/testthat/test-mat.R

In bgreenwell/ramify: Additional Matrix Functionality

context("Basic functionality")


################################################################################
# Character method
################################################################################
test_that("character method functions as expected", {
  
  # Three versions of the same matrix
  m1 <- mat("1.5, 2.0, pi; 4, 5, 6; 7, 8, 9", eval = TRUE)
  m2 <- mat("3/2 2.0 pi  ; 4 5 6;    7:9 ", sep = " ", eval = TRUE)
  m3 <- mat(c(1.5, 2, pi, 4:9), nrow = 3, byrow = TRUE)
  m4 <- matrix(c(1.5, 2, pi, 4:9), nrow = 3, byrow = TRUE)
  tm1 <- mat("1.5, 2.0, pi; 4, 5, 6; 7, 8, 9", eval = TRUE, rows = FALSE)
  
  m <- mat("rnorm(4, mean = 1); rnorm(4, mean = 2)", sep = NULL, eval = TRUE)
  expect_identical(dim(m), c(2L, 4L))
  
  expect_identical(mat("a, b, c, d; e, f, g, h"),
                   matrix(letters[1:8], nrow = 2, byrow = TRUE))
  
  # Expectations
  expect_identical(m1, m2)
  expect_identical(m1, m3)
  expect_identical(m1, m4)
  expect_identical(t(m1), tm1)

})


################################################################################
# List method
################################################################################
test_that("list method functions as expected", {
  
  # Example list
  z <- list(a = 1:10, b = 1:10, c = 1:10)
  
  # Convert to matrix using various approaches
  m1 <- mat(z)
  m2 <- mat(z, rows = FALSE)
  m3 <- matrix(unlist(z), nrow = 3, byrow = TRUE)
  m4 <- do.call(rbind, z)
  m5 <- simplify2array(z)
  
  # Expectations
  expect_identical(rownames(m1), names(z))  # check names
  expect_identical(colnames(m2), names(z))  # check names
  expect_identical(m1, t(m2))
  expect_identical(m1, m4)
  expect_identical(m2, m5)
  expect_equal(m1, m3, check.attributes = FALSE)
  expect_error(mat(list(a = c("a", "b", "c"), b = 1:3)))
  expect_error(mat(list(a = numeric(0), b = 1:3)))
  
})


################################################################################
# Data frames
################################################################################
test_that("dmat functions as expected", {
  
  # Example list
  z <- list(a = 1:10, b = 1:10, c = 1:10)
  
  # Convert to data frame
  d1 <- dmat(z)
  d2 <- dmat(z, rows = FALSE)
  
  # Convert to matrix
  m1 <- mat(z)
  m2 <- mat(z, rows = FALSE)
  
  # Expectations
  expect_identical(d1, as.data.frame(m1))
  expect_identical(d2, as.data.frame(m2))
  expect_identical(m1, t(m2))
  
})