# NOT RUN {
# }
# NOT RUN {
# Load inflation forecasts
data(inflation_mean)
# Make numeric time axis
tm <- as.numeric(substr(inflation_mean$dt, 1, 4)) +
0.25*(as.numeric(substr(inflation_mean$dt, 6, 6))-1)
# Plot
matplot(x = tm, y = inflation_mean[,2:4], type = "l", bty = "n",
xlab = "Time", ylab= "Inflation (percent)", col = 3:1)
legend("topright", legend = c("SPF", "Michigan", "Actual"), fill = 3:1, bty = "n")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab