tests/testthat/test_conversion.R

context("data conversions")

test_that("DNAbin2genind works properly", {

  data("woodmouse", package = "ape")
  wm <- DNAbin2genind(woodmouse)
  expect_is(wm, "genind")
  expect_equal(nInd(wm), nrow(woodmouse))
   
})

Try the adegenet package in your browser

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

adegenet documentation built on Feb. 16, 2023, 6 p.m.