inst/unitTests/test_AnimalQTLDB.R

test_AnimalQTLDB <- function(){
    checkEquals(NROW(AnimalQTLDB()), 7)
    checkTrue(AnimalQTLDB()[1,1] == 'table')
    checkEqualsNumeric(NCOL(AnimalQTLDB()), 5)
}
liuyufong/AnimalQTLDB documentation built on May 9, 2019, 12:49 p.m.