tests/testthat/test_isGap.R
In hyginn/shi: Multiple Sequence Alignment Handling and Inspection
# test_isGap.R
context("isGap")
test_that("isGap works for a single element", {
expect_equal(isGap("C"), FALSE)
expect_equal(isGap("-"), TRUE)
})
test_that("isGap works for multiple elements", {
seqA <- c("A", "V", "T", "-", "-", "D")
expect_equal(isGap(seqA), c(FALSE, FALSE, FALSE, TRUE, TRUE, FALSE))
})
hyginn/shi documentation built on May 6, 2019, 9:53 a.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.
# test_isGap.R
context("isGap")
test_that("isGap works for a single element", {
expect_equal(isGap("C"), FALSE)
expect_equal(isGap("-"), TRUE)
})
test_that("isGap works for multiple elements", {
seqA <- c("A", "V", "T", "-", "-", "D")
expect_equal(isGap(seqA), c(FALSE, FALSE, FALSE, TRUE, TRUE, FALSE))
})
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.