#--------Dane 3------------------

 library(diffusion)

k <- c(
0,
5,
8,
11,
17,
22,
31,
51,
68,
104,
125,
177,
235,
287,
355,
425,
536,
634,
901,
927
)


 fitbass3 <- diffusion(k, type = "bass")
 
# Produce some plots
 
 plot(fitbass3)
 
 fit1 <- predict(fitbass3,15)
 plot(fit1)