tests/testthat/test-removecells.R
In BrunoVilela/letsR: Data Handling and Analysis in Macroecology
context("Test for .removeCells")
test_that(".removeCells works fine", {
m_test <- rbind(c(1, 5, 0, 0), c(0, 5, 0, 5))
expect_true(all(dim(.removeCells(m_test)) == c(1, 4)))
expect_error(.removeCells(m_test[, -4]))
expect_true(all(dim(.removeCells(m_test[-1, , drop=FALSE])) == c(1, 4)))
})
BrunoVilela/letsR documentation built on March 31, 2024, 11:25 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Test for .removeCells")
test_that(".removeCells works fine", {
m_test <- rbind(c(1, 5, 0, 0), c(0, 5, 0, 5))
expect_true(all(dim(.removeCells(m_test)) == c(1, 4)))
expect_error(.removeCells(m_test[, -4]))
expect_true(all(dim(.removeCells(m_test[-1, , drop=FALSE])) == c(1, 4)))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.