Nothing
context("Longest Common Subsequence distance")
examples_equal_weights <- list(
list(x = "abc", y = "abc", true_dist = 0), # identical
list(x = "plane", y = "plant", true_dist = 2), # substitution
list(x = "color", y = "colour", true_dist = 1), # insertion
list(x = "favourite", y = "favorite", true_dist = 1), # deletion
list(x = "abc", y = "ca", true_dist = 3), # transposition + insertion
list(x = "abc", y = "acb", true_dist = 2), # transposition
list(x = "1234", y = "", true_dist = 4), # complete deletion
list(x = "", y = "1234", true_dist = 4), # complete insertion
list(x = "", y = "", true_dist = 0), # empty
list(x = "positive", y = "evitisop", true_dist = 10), # reverse
list(x = "café", y = "cafe", true_dist = 2), # character with diacritic
list(x = "Saturday", y = "Sunday", true_dist = 4),
list(x = list(c("A", "B", "B", "A")), y = list(c("A", "B", "A", "B")), true_dist = 2)
)
test_that("LCS distance is correct when weights are equal", {
for (example in examples_equal_weights) {
with(example,
expect_equal(LCS()(x, y), true_dist))
}
})
examples_nonequal_weights <- list(
list(comparator = LCS(insertion = 10, deletion = 10),
x = "abc", y = "abc", true_dist = 0), # identical
list(comparator = LCS(insertion = 0.9),
x = "color", y = "colour", true_dist = 0.9), # insertion
list(comparator = LCS(deletion = 0.9),
x = "favourite", y = "favorite", true_dist = 0.9), # deletion
list(comparator = LCS(insertion = 100),
x = "abc", y = "ca", true_dist = 102), # transposition + insertion
list(comparator = LCS(insertion = 10, deletion = 20),
x = "", y = "", true_dist = 0), # empty
list(comparator = LCS(insertion=100),
x = "positive", y = "evitisop", true_dist = 505) # reverse
)
test_that("LCS distance is correct when weights are not equal", {
for (example in examples_nonequal_weights) {
with(example,
expect_equal(comparator(x, y), true_dist))
}
})
examples_normalized <- list(
list(x = "abc", y = "abc", true_dist = 0), # identical
list(x = "plane", y = "plant", true_dist = 2*2/(2*5+2)), # substitution
list(x = "color", y = "colour", true_dist = 2/(5+6+1)), # insertion
list(x = "favourite", y = "favorite", true_dist = 2/(9+8+1)), # deletion
list(x = "abc", y = "ca", true_dist = 2*3/(3+2+3)), # transposition + insertion
list(x = "abc", y = "acb", true_dist = 2*2/(2*3+2)), # transposition
list(x = "1234", y = "", true_dist = 2*4/(4+4)), # complete deletion
list(x = "", y = "1234", true_dist = 2*4/(4+4)), # complete insertion
list(x = "", y = "", true_dist = 0), # empty
list(x = "positive", y = "evitisop", true_dist = 2*10/(2*8+10)), # reverse
list(x = "café", y = "cafe", true_dist = 2*2/(2*4+2)), # character with diacritic
list(x = "Saturday", y = "Sunday", true_dist = 2*4/(8+6+4))
)
test_that("LCS distance is correct when normalized", {
for (example in examples_normalized) {
with(example,
expect_equal(LCS(normalize = TRUE)(x, y), true_dist))
}
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.