# \donttest{
data("cdnow")
clv.cdnow <- clvdata(data.transactions = cdnow, date.format="ymd",
time.unit = "weeks")
# Fit gg
spending(family=gg, data=clv.cdnow)
# Fit gg with start params
spending(family=gg, data=clv.cdnow,
start.params.model=c(p=0.5, q=15, gamma=2))
# Fit gg, do not remove first transaction
spending(family=gg, data=clv.cdnow, remove.first.transaction=FALSE)
## No formula may be given to specify covariates because currently
## no spending model uses covariates
# }
Run the code above in your browser using DataLab