dc.FilterCustByBirth(elog, cohort.birth.per)
# converting the date column to Date objects is # necessary for this function. elog$date <- as.Date(elog$date, "%Y%m%d") # starting date. Note that it must be a Date object. start.date <- as.Date("1997-01-01") # ending date. Note that it must be a Date object. end.date <- as.Date("1997-01-31")
# Filter the elog to include only customers who made their # first transaction in January 1997 filtered.elog <- dc.FilterCustByBirth(elog, c(start.date, end.date)) } description{ Filters an event log, keeping all transactions made by customers who made their first transactions in the given time interval. }