r - ループを含む時系列線形モデルのリストを作成する際のエラー

Question

次のデータセットがあります (コードには呼び出しforecast用のパッケージが必要です)。tslm

x <- rnorm(11, mean = 534, sd = 79)
y <- rnorm(9, mean = 800, sd = 56)
p <- list(x, y) 
tsl <- list(); ts_trend <- list()


for(i in seq_along(p)) {

    tsl[[i]] <- ts(p[[i]], start = c(2018, 1), frequency = 52)
}

    for(i in seq_along(tsl)) {

ts_trend[[i]] <- tslm(tsl[[i]] ~ trend)

}

実行すると、エラーが発生します

Error in tsl[[i]] : subscript out of bounds

私の知る限り、下付き文字は明らかに範囲外ではありません。エラーなしで、前のループで同じ参照を使用します。

これを修正する方法がわかりません。私は何が欠けていますか？