# 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")
fourier_K(M)
# }
Run the code above in your browser using DataLab