Extract a copy of the transaction data stored in the given clv.data object into a data.table.
# S3 method for clv.data
as.data.table(
x,
keep.rownames = FALSE,
Ids = NULL,
sample = c("full", "estimation", "holdout"),
...
)
An object of class clv.data
.
Ignored
Character vector of customer ids for which transactions should be extracted. NULL
extracts all.
Name of sample for which transactions should be extracted, either "estimation", "holdout", or "full" (default).
Ignored
A data.table
with columns Id
, Date
, and Price
(if present).
library(data.table)
# \donttest{
data("cdnow")
clv.data.cdnow <- clvdata(data.transactions = cdnow,
date.format="ymd",
time.unit = "w",
estimation.split = 37)
# Extract all transaction data (all Ids, estimation and holdout period)
dt.trans <- as.data.table(clv.data.cdnow)
# Extract transaction data of estimation period
dt.trans <- as.data.table(clv.data.cdnow, sample="estimation")
# Extract transaction data of Ids "1", "2", and "999"
# (estimation and holdout period)
dt.trans <- as.data.table(clv.data.cdnow, Ids = c("1", "2", "999"))
# Extract transaction data of Ids "1", "2", and "999" in estimation period
dt.trans <- as.data.table(clv.data.cdnow, Ids = c("1", "2", "999"),
sample="estimation")
# }