Ошибка R с использованием функции cast(): "Ошибка: оператор $ недопустим для атомарных векторов"

Question

Я пытаюсь сделать прогноз временных рядов ARIMAX, используя пакет прогноз (). Однако возникает какая-то ошибка, которую я не могу объяснить. Вот код:

library(TSA)
library(forecast)
library(timeSeries)

# Load data on unemployment and inflation:
unemp <- read.csv("https://ryanwomack.com/data/UNRATE.csv", row.names=1)
unemp <- ts(unemp$VALUE, start=c(1948,1), freq=12)
infl <- read.csv("https://ryanwomack.com/data/CPIAUCSL.csv", row.names=1)
infl <- ts((infl$VALUE), start=c(1948,1), freq=12)

# Split the series in train and test set:
unemp.train = window(unemp, end=c(1999, 12))
unemp.test = window(unemp, start=c(2000, 1))
infl.train = window(infl, end=c(1999, 12))
infl.test = window(infl, start=c(2000, 1))

# implement ARIMAX model
mod1 <- arima(unemp.train, order=c(2,1,2), seasonal=list(order=c(0,0,2), period=12), xreg=infl.train)

# Try a prediction:
pred <- forecast(mod1, xreg=infl.test, h=145)

На данный момент я получаю:

Error: $ operator is invalid for atomic vectors

В чем проблема? Спасибо.