tests/testthat/test-meanPerformance.R

test_that("Whether result is same as output", {
  performance <- d <- meanPerformance(data = seldata[,3:7], genotypes = seldata[,2], replications = seldata[,1])
  expect_equal(nrow(performance),34)
})

Try the selection.index package in your browser

Any scripts or data that you put into this service are public.

selection.index documentation built on Sept. 19, 2023, 5:09 p.m.