Nothing
context("Misc operations")
test_that("Spellout works with DNA", {
test <- dna(A = "ACGT", B = "RWSAG", C = NA)
expect_equal(seq_spellout(test),
c("adenine - cytosine - guanine - thymine",
"purine - weak - strong - adenine - guanine",
NA)
)
})
test_that("Spellout works with RNA", {
test <- rna(A = "ACGU", B = "RWSAG", C = NA)
expect_equal(seq_spellout(test),
c("adenine - cytosine - guanine - uracil",
"purine - weak - strong - adenine - guanine",
NA)
)
})
test_that("Spellout works with AA", {
test <- aa(A = "ACGU", B = "RWSAG", C = NA)
expect_equal(seq_spellout(test),
c("alanine - cysteine - glycine - selenocysteine",
"arginine - tryptophan - serine - alanine - glycine",
NA)
)
expect_equal(seq_spellout(test, short = TRUE),
c("ala - cys - gly - sec",
"arg - trp - ser - ala - gly",
NA)
)
})
test_that("Spellout returns list of character vectors with collapse = NULL", {
test <- dna(A = "ACGT", B = "RWSAG", C = NA)
expect_equal(seq_spellout(test, collapse = NULL),
list(c("adenine", "cytosine", "guanine", "thymine"),
c("purine", "weak", "strong", "adenine", "guanine"),
NA_character_)
)
})
test_that("seq_disambiguate_IUPAC with RNA", {
test <- rna(A = "ACGU", B = "RWSAG", C = NA)
test_disamb <- seq_disambiguate_IUPAC(test)
expect_length(test_disamb, 3)
expect_length(test_disamb[[1]], 1)
expect_length(test_disamb[[2]], 8)
expect_equal(test_disamb[[3]], rna(NA))
})
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.