context("ploidy.R")
test_that("test", {
Z <- locus()
A <- locus( "A" )
AA <- locus( c("A","A") )
AAA <- locus( rep("A",3))
expect_that( ploidy(Z), equals(0) )
expect_that( ploidy(A), equals(1) )
expect_that( ploidy(AA), equals(2) )
expect_that( ploidy(AAA), equals(3) )
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.