context("maximum_allele_size.R")
test_that("checking",{
loci <- c( locus( c(1,12) ), locus( c(2,22) ), locus( c(2222,2) ))
expect_error( maximum_allele_size() )
expect_error( maximum_allele_size("A") )
expect_error( maximum_allele_size(23) )
expect_error( maximum_allele_size( list() ) )
mx_size <- maximum_allele_size(loci)
expect_that( mx_size, is_equivalent_to(4) )
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.