tests/testthat/test_RePair_in_Paper.R

str <- "abc abc cba cba bac xxx abc abc cba cba bac"

test_that("RePair test #1", {

  grammar <- str_to_repair_grammar(str)

  expect_equal("R4 xxx R4", grammar[[1]]$rule_string)

  expect_equal("R3", grammar[[4]]$rule_string)

})
jMotif/jmotif-R documentation built on Sept. 27, 2022, 4:31 p.m.