if (FALSE) {
## Plot filtered estimates of a GAS model estimated on the
## Quarterly logarithmic change in percentage points of the Consumer Price Index data set (cpichg)
library("GAS")
data("cpichg")
GASSpec = UniGASSpec(Dist = "std", ScalingType = "Identity",
GASPar = list(location = TRUE, scale = TRUE,
shape = FALSE))
Fit = UniGASFit(GASSpec, cpichg)
plot(Fit, which = 1)
}
Run the code above in your browser using DataLab