data(DBdimora)
iphone <- DBdimora$iPhone[7:52]
M1 <- BM(iphone)
# Predict the values of the observed series (lenght(iphone)=46)
predict.Dimora(M1, newx = c(1:46))
# Predict the values of the observed series and other 34 future values
predict.Dimora(M1, newx = c(1:80))
Run the code above in your browser using DataLab