# \donttest{
data("cdnow")
clv.cdnow <- clvdata(cdnow,
date.format="ymd",
time.unit = "week",
estimation.split = "1997-09-30")
est.gg <- gg(clv.data = clv.cdnow)
# Compare empirical to theoretical distribution
plot(est.gg)
if (FALSE) {
# Modify the created plot further
library(ggplot2)
gg.cdnow <- plot(est.gg)
gg.cdnow + ggtitle("CDnow Spending Distribution")
}
# }
Run the code above in your browser using DataLab