tests/testthat/test-Ae.R
In dyerlab/gstudio: Tools Related to the Spatial Analysis of Genetic Marker Data
context("Ae.R")
test_that("checking",{
loci <- c( locus( c(1,1) ),
locus( c(2,2) ),
locus( c(2,2) ),
locus( c(1,2) ),
locus( c(1,1) ),
locus( c(2,2) ),
locus( c(1,2) ),
locus( c(2,1) ),
locus( c(2,1) ),
locus( c(2,2) ),
locus( c(2,3) ))
expect_that( Ae("Bob"), throws_error() )
expect_that( Ae(loci), is_equivalent_to( 1/(1-He(loci))) )
}
)
dyerlab/gstudio documentation built on Feb. 2, 2024, 8:24 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("Ae.R")
test_that("checking",{
loci <- c( locus( c(1,1) ),
locus( c(2,2) ),
locus( c(2,2) ),
locus( c(1,2) ),
locus( c(1,1) ),
locus( c(2,2) ),
locus( c(1,2) ),
locus( c(2,1) ),
locus( c(2,1) ),
locus( c(2,2) ),
locus( c(2,3) ))
expect_that( Ae("Bob"), throws_error() )
expect_that( Ae(loci), is_equivalent_to( 1/(1-He(loci))) )
}
)
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.