tests/makebin.R

### ceeboo 2008

library(arulesSequences)

data(zaki)

arulesSequences:::makebin(zaki, "zaki")
arulesSequences:::write_cspade(zaki, "zaki.asc")

exe <- "bin"
if (.Platform$r_arch != "")
    exe <- file.path(exe, .Platform$r_arch)
exe <- system.file(exe, package = "arulesSequences")
system2(file.path(exe, "makebin"), args = c("zaki.asc makebin.data"))

stopifnot(!system("cmp zaki.data makebin.data"))

system2(file.path(exe, "getconf"), args = c("-i makebin -o makebin"))

stopifnot(!system("cmp zaki.conf makebin.conf"))

###

Try the arulesSequences package in your browser

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

arulesSequences documentation built on July 29, 2018, 5:02 p.m.