| commit | d417ba6cdf69cd94107f0996d5f99ad5a7779db9 | [log] [tgz] |
|---|---|---|
| author | Marc Kupietz <kupietz@ids-mannheim.de> | Tue Dec 10 17:54:07 2024 +0100 |
| committer | Marc Kupietz <kupietz@ids-mannheim.de> | Tue Dec 10 17:54:07 2024 +0100 |
| tree | f215ad280dec50256b3809c6d5c34986a80757ab | |
| parent | b7851f9dba0e1679c2dff65148c9a2422f27fede [diff] [blame] |
Add wordFrequency function Resolves #1 Change-Id: Ifba8630d09559c1c3c31343fbdc3c849dae7d4ca
diff --git a/tests/testthat/test-derekovecs.R b/tests/testthat/test-derekovecs.R index 25778cf..7fd4980 100644 --- a/tests/testthat/test-derekovecs.R +++ b/tests/testthat/test-derekovecs.R
@@ -32,3 +32,9 @@ rank <- frequencyRank("Test") expect_true(rank %>% is.numeric & rank > 0) }) + +test_that("wordFrequency works", { + freq <- wordFrequency("Test") + expect_true(freq %>% is.numeric & freq > 0) +}) +