data(DBdimora)
iphone <- DBdimora$iPhone[7:52]
## Example 1
M6 <- GGM(iphone, prelimestimates=c(1823, 0.001, 0.1, 0.001, 0.1), oos=100)
# 1823 refers to the estimated parameter m of the standard Bass model on iphone
summary(M6)
plot.Dimora(M6, oos=25)
# 25 predictions
## Example 2
M7 <- GGM(iphone, mt = function(x) pchisq(x,10))
summary(M7)
Run the code above in your browser using DataLab