tests/testthat/test-lambdaG.R

In idiolect: Forensic Authorship Analysis

test_that("lambdaG works", {

  q.data <- enron.sample[1:2] |> quanteda::tokens("sentence")
  k.data <- enron.sample[3:10]|> quanteda::tokens("sentence")
  ref.data <- enron.sample[11:ndoc(enron.sample)]|> quanteda::tokens("sentence")

  results <- lambdaG(q.data, k.data, ref.data)

  expect_gt(results[1, 4], 0)
  expect_gt(results[2, 4], 0)
  expect_lt(results[3, 4], 0)
  expect_lt(results[4, 4], 0)

})