-2

在适合数据集的正常模型中，如下所示：

> head(total)
# A tsibble: 6 x 15 [1D]
# Key:       id [6]
  Date       Close Interest_Rate Consumer_Inflation `CPI(YOY)` `Wage_Index(QoQ)` `Wage_Index(YoY)` AiG_idx TD_Inflation CFTC_AUD_net_positions `RBA_Mean_CPI(Yo~ Commonwealth_Ba~
  <date>     <dbl>         <dbl>              <dbl>      <dbl>             <dbl>             <dbl>     <dbl>        <dbl>                  <dbl>             <dbl>            <dbl>
1 2009-04-01  69.4             0                  0          0                 0                 0         0            0                      0                 0                0
2 2009-04-02  71.6             0                  0          0                 0                 0         0            0                      0                 0                0
3 2009-04-03  71.0             0                  0          0                 0                 0         0            0                      0                 0                0
4 2009-04-06  71.0             0                  0          0                 0                 0         0            0                      0                 0                0
5 2009-04-07  71.6             3                  0          0                 0                 0         0            0                      0                 0                0
6 2009-04-08  71.1             3                  0          0                 0                 0         0            0                      0                 0                0

训练模型：

fit <- total_axy %>%
  model(
    fable::TSLM(Close)
    )

report(axy_fit)

正在训练

1-10 of 3,409 rows | 1-10 of 16 columns

每行1个模型！我该如何解决这个问题？我只想要所有行的 1 个模型！！！

4

1 回答 1

2

你每行得到一个模型，因为你key设置为id，我猜它设置为每行唯一的值。您可以看到有 6 行和 6 个唯一值id。

根据包网站atsibble有一个key属性，应该是：

一组定义随时间变化的观察单位的变量

要修复它，请尝试更改密钥或删除它。

一个例子：

library(dplyr)
library(tsibble)
library(fpp3)

total <- 
  tibble(
  Date = seq.Date(from = as.Date("2009-04-01"), to = as.Date("2009-04-08"), by = 1),
  Close = rnorm(length(Date))
) %>% 
  # Make a tsibble with no key
  as_tsibble(index = Date)

fit <- 
  total %>% 
  model(
    fable::TSLM(Close)
  )

report(fit)

这仅给出了一个模型。

于 2021-12-19T15:18:34.673 回答