Max Entropy Bootstrap

library(ahead)

res <- meboot(AirPassengers)
matplot(res$ensemble, type='l')