1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
options(sd_num_thread=2)
## stringsim
# We expect that two completely different strings have a similarity of
# 0 and two completely equal strings a similarity of 1
methods <- c("osa", "lv", "dl", "hamming", "lcs", "qgram", "cosine", "jaccard", "jw", "soundex")
for (method in methods) {
expect_equal(stringsim("bb", "cc", method=method), 0)
expect_equal(stringsim("bb", "bb", method=method), 1)
}
## edgecases
for (method in methods[c(1:5,9:10)]){
expect_equal(stringsim(c("a", ""), "", method=method), c(0, 1))
expect_equal(stringsim(c("kkk", "bbb"), "bbb", method=method),
stringsim("bbb", c("kkk", "bbb"), method=method))
}
for (method in methods[6:8]){
expect_equal(stringsim(c("a", ""), "", method=method,q=0), c(1, 1))
expect_equal(stringsim(c("kkk", "bbb"), "bbb", method=method,q=0),
stringsim("bbb", c("kkk", "bbb"), method=method,q=0))
}
## Stringsim gets correct values with or without useBytes
x <- "ao"
y <- paste0("a",intToUtf8(0x00F6)) # o-umlaut
expect_equal(stringsim(x,y,method="osa", useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="osa", useBytes=TRUE ), 1-2/3)
expect_equal(stringsim(x,y,method="lv", useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="lv", useBytes=TRUE ), 1-2/3)
expect_equal(stringsim(x,y,method="dl", useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="dl", useBytes=TRUE ), 1-2/3)
expect_equal(stringsim(x,y,method="hamming", useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="hamming", useBytes=TRUE ), 1-1)
expect_equal(stringsim(x,y,method="lcs", useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="lcs", useBytes=TRUE ), 1-3/5)
expect_equal(stringsim(x,y,method="qgram", q=1, useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="qgram", q=1, useBytes=TRUE ), 1-3/5)
expect_equal(stringsim(x,y,method="cosine", q=1, useBytes=FALSE), 1-1/2)
expect_equal(stringsim(x,y,method="cosine", q=1, useBytes=TRUE ), 1-(1-1/sqrt(6)))
expect_equal(stringsim(x,y,method="jaccard", q=1, useBytes=FALSE), 1-2/3)
expect_equal(stringsim(x,y,method="jaccard", q=1, useBytes=TRUE ), 1-3/4)
expect_equal(stringsim(x,y,method="jw", useBytes=FALSE), 1-1/3)
expect_equal(stringsim(x,y,method="jw", useBytes=TRUE ), (1/2 + 1/3 +1)/3)
# stringsimmatrix
x <- names(islands)[1:10]
y <- rev(x) # o-umlaut
expect_true(inherits(stringsimmatrix(x,y,method="osa", useBytes=FALSE), "matrix"))
expect_equal(dim(stringsimmatrix(x,y,method="osa", useBytes=FALSE)), c(10, 10))
expect_equal(stringsimmatrix(x,y,method="osa", useBytes=FALSE)[2, 2], 0.2)
expect_true(inherits(stringsimmatrix(x,method="osa", useBytes=FALSE), "matrix"))
expect_equal(dim(stringsimmatrix(x,method="osa", useBytes=FALSE)), c(10, 10))
expect_equal(stringsimmatrix(x,method="osa", useBytes=FALSE)[2, 9], 0.2)
expect_warning(stringdistmatrix(list('a')))
expect_warning(stringdistmatrix(list('a'),list('b')))
## seq_sim
# We used to have list(1:3, 2:4) and list(1:3). This occasionally
# gave failing tests, and only in the context of expect_equal (both
# for tinytest and testthat. Therefore this may point to a hard-to-reproduce
# bug in R's JIT compiler.
expect_equal(
seq_sim(list(c(1,2,3),c(2,3,4)), list(c(1,2,3)), method="cosine")
, stringsim(c("abc","bcd"),"abc", method="cosine")
)
|
