tests/testthat/test_topTexts.R

In tosca: Tools for Statistical Content Analysis

context("topTexts")

test_that("topTexts", {

load("data/test-k3i20b70s24601alpha0.33eta0.33.RData")

M <- matrix(c(
"I","H","E",
"C","D","G",
"A","B","B",
"H","G","D",
"B","A","A"
),5,3,byrow=TRUE)
colnames(M) <- c("T1.culpa", "T2.ut", "T3.aliqua")

M2 <- matrix(c(
"I","G",
"C","A",
"A","B",
"H","E",
"F","D",
"B","H",
"D","C",
"E","F",
"G","I"),9,2,byrow=TRUE)
colnames(M2) <- c("T1.culpa", "T3.aliqua")

expect_equal(M,topTexts(ldaresult=result, ldaID=ldaID, limit = 5L, rel = TRUE, minlength=30L))
expect_equal(M2,topTexts(ldaresult=result, ldaID=ldaID, limit = 0L, rel = FALSE, select = c(1,3), minlength=1L))
})