Nothing
data(answeringmachines)
bass.answeringmachines
model <- adecon.bass.linearized(bass.answeringmachines$sales)
model$bass.sales_at_peak
model$bass.time_to_peak_sales
plot(model$model$sales)
lines(predict(model))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.