# \donttest{
# Load FRED_MD dataset
data("FRED_MD")
# Define frequency s
s <- 12
# Apply the procedure to the first 10 time series in FREDMDApril19
Y <- FRED_MD[,1:10]
out_db_hom_oga <- db_hom_oga(Y,s=s)
# }
Run the code above in your browser using DataLab