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'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.