# NOT RUN {
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)
# Modify the created plot further
library(ggplot2)
gg.cdnow <- plot(est.gg)
gg.cdnow + ggtitle("CDnow Spending Distribution")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab