Plot.Fore(x, fore, start, end, frequency)
start=c(1980,4) indicates April 1980 if frequency=12
end = c(2000,1) indicates 1st quarter of 2000 if freqeuncy = 4
data(IPdata) BootF <- BootBC(IPdata,p=1,h=10,nboot=100,type="const+trend") Plot.Fore(IPdata,BootF$forecast,start=1860,end=1988,frequency=1)
Run the code above in your browser using DataLab