# NOT RUN {
Data1 <- runif(runif(200,100,1000))#To generate random number for example
Data_ts <- ts(Data1)
M <- dhr(Data=Data_ts,XREG=NULL,Range=list(1:2,1),Frequency=c(24,168),Criteria="aicc")
Fcast <- fc(Frequency = c(24,168), XREG_test = NULL, h = 10, Fit = M, Data = Data_ts)
plot(Fcast)
# }
Run the code above in your browser using DataLab