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)

})

Try the jmotif package in your browser

Any scripts or data that you put into this service are public.

jmotif documentation built on March 26, 2020, 7:23 p.m.