# NOT RUN {
library(BCDating)
data("Iran.non.Oil.GDP.Cycle")
dat <- BBQ(Iran.non.Oil.GDP.Cycle, name="Dating Business Cycles of Iran")
show(dat)
summary(dat)
plot(dat)
plot(dat,Iran.non.Oil.GDP.Cycle)
data("MBRI.Iran.Dating")
plot(MBRI.Iran.Dating)
# }
Run the code above in your browser using DataLab