#' @examples \donttest{
#' data("apparelTrans")
#' clv.data.apparel <- clvdata(apparelTrans, date.format = "ymd",
#' time.unit = "w", estimation.split = 40)
#'
#' # Fit standard <%=name_model_short%> model
#' <%=name_model_short%>(clv.data.apparel)
#'
#' # Give initial guesses for the model parameters
#' <%=name_model_short%>(clv.data.apparel,
#' start.params.model = <%=vec_startparams_model%>)
#'
#'
#' # pass additional parameters to the optimizer (optimx)
#' # Use Nelder-Mead as optimization method and print
#' # detailed information about the optimization process
#' apparel.<%=name_model_short%> <- <%=name_model_short%>(clv.data.apparel,
#' optimx.args = list(method="Nelder-Mead",
#' control=list(trace=6)))
#'
#' # estimated coefs
#' coef(apparel.<%=name_model_short%>)
#'
#' # summary of the fitted model
#' summary(apparel.<%=name_model_short%>)
#'
#' # predict CLV etc for holdout period
#' predict(apparel.<%=name_model_short%>)
#'
#' # predict CLV etc for the next 15 periods
#' predict(apparel.<%=name_model_short%>, prediction.end = 15)
#' }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.