tests/testthat/test.samples.R

context("samples")


test_that("correct info about class structure", {
  data = read.morphodata("../testFiles/sample.txt")

  expect_equal(paste(samples(data)[1:8], collapse = ","), "BABL1146,BABL1147,BABL1148,BABL1149,BABL1150,BABL1151,BABL1152,BABL1153")

})

Try the MorphoTools2 package in your browser

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

MorphoTools2 documentation built on March 7, 2023, 6:18 p.m.