revdep/checks/MorphoTools2/old/MorphoTools2.Rcheck/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'))

})
friendly/candisc documentation built on June 10, 2025, 9:49 a.m.