context("summary.classifdata")
test_that("correct info about class structure", {
data = read.morphodata("../testFiles/samplePlnaMatica.txt")
c.lda = suppressWarnings(classif.lda(data))
output = capture.output(summary(c.lda))
expect_equal(output[1], "Object of class 'classifdata'; storing results of classificatory discriminant analysis")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.