if(!requireNamespace("dynlm")) {
if(interactive() || is.na(Sys.getenv("_R_CHECK_PACKAGE_NAME_", NA))) {
stop("not all packages required for the example are installed")
} else q() }
data("ArgentinaCPI")
plot(ArgentinaCPI)
plot(log(ArgentinaCPI))
library("dynlm")
## estimation sample 1970.3-1988.4 means
acpi <- window(ArgentinaCPI, start = c(1970,1), end = c(1988,4))
## eq. (3.90), p.54
acpi_ols <- dynlm(d(log(acpi)) ~ L(d(log(acpi))))
summary(acpi_ols)
## alternatively
ar(diff(log(acpi)), order.max = 1, method = "ols")
Run the code above in your browser using DataLab