## read example data
x <- read_baskets(con = system.file("misc", "zaki.txt", package =
"arulesSequences"),
info = c("sequenceID","eventID","SIZE"))
as(x, "data.frame")
if (FALSE) {
## calendar dates
transactionInfo(x)$Date <-
as.Date(transactionInfo(x)$eventID, origin = "2015-04-01")
transactionInfo(x)
all.equal(transactionInfo(x)$eventID,
as.integer(transactionInfo(x)$Date - as.Date("2015-04-01")))
}
Run the code above in your browser using DataLab