tests/testthat/test_findGeneration.R

#' Copyright(c) 2017-2020 R. Mark Sharp
#' This file is part of nprcgenekeepr
context("findGeneration")
library(testthat)
data(lacy1989Ped)
ped <- lacy1989Ped
ped$gen <- NULL
test_that("findGeneration labels generations correctly", {
            expect_equal(findGeneration(ped$id, ped$sire, ped$dam),
                         lacy1989Ped$gen)
})
rmsharp/nprcmanager documentation built on April 24, 2021, 3:13 p.m.