Nothing
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))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.