tests/testthat/test.newPcoadata.R

context(".newPcoadata")

test_that("check class of new object",  {


  newObject = .newPcoadata()

  expect_is(newObject, "pcoadata")

  expect_named(newObject, c('objects', 'eigenvalues', 'eigenvaluesAsPercentages', 'cumulativePercentageOfEigenvalues', 'groupMeans', 'distMethod', 'rank'))

  expect_named(newObject$objects, c('ID', 'Population', 'Taxon', 'scores'))

})
MarekSlenker/MorphoTools2 documentation built on Oct. 2, 2024, 5:58 p.m.