# NOT RUN {
data(cdnowSummary)
cal.cbs <- cdnowSummary$cbs
# cal.cbs already has column names required by method
# starting-point parameters
startingparams <- c(1.0, 3, 1.0, 3)
# estimated parameters
est.params <- bgnbd.EstimateParameters(cal.cbs = cal.cbs,
par.start = startingparams)
# complete object returned by \code{\link[optimx]{optimx}}
optimx.set <- bgnbd.EstimateParameters(cal.cbs = cal.cbs,
par.start = startingparams,
hessian = TRUE)
# log-likelihood of estimated parameters
bgnbd.cbs.LL(est.params, cal.cbs)
# }
Run the code above in your browser using DataLab