tsibble - 如何在自动传递外部回归器列表的同时转换寓言中的变量?
问题描述
我使用了一些代码,这些代码使用 fable 自动将外部回归器列表传递给 ARIMA()(感谢@seapen 和@Mitchell O'Hara-Wild)。
我想通过差分和转换为对数刻度来转换所有变量。据我了解,如果这是在 model() 中完成的,那么 fable 会自动对预测进行反向转换。
请有人帮我修改下面的代码,以便每个自动生成的变量都以 dlog 形式通过 model() 调用,从而允许进行自动反向转换?
library(tidyverse)
library(fable)
library(BBmisc)
library(progressr)
# Load data
df <- tsibbledata::hh_budget
# Build lists of external regressor combinations
subsets_list <- function(set, subset_size) {
combn(set, subset_size) %>%
BBmisc::convertColsToList() %>%
unname()
}
xregs <-
map(.x = 1:(length(df) - 3), .f = subsets_list,
set = colnames(df[4:length(df)])) %>%
unlist(recursive = F)
# Construct formulas
rhs <- map_chr(seq_along(xregs), ~ paste(xregs[[.]], collapse = " + "))
lhs <- "Debt"
formulas <- map(paste(lhs, rhs, sep = " ~ "), as.formula)
# Create model specifications
model_specs <- set_names(map(formulas, ARIMA), formulas)
# Train - test split for model fit
train <- df %>% filter(Year <= 2014)
test <- df %>% filter(Year > 2014)
# Estimate models based on training data (added a progress bar since it takes ~30secs)
fit <- with_progress(train %>%
model(!!!model_specs))
# forecast all models using test data
fc <- fit %>%
forecast(test)
非常感谢任何帮助。
解决方案
推荐阅读
- python - 无法在 django 中创建用户帖子
- javascript - 为什么在我运行注入脚本的 chrome 扩展程序后页面停止
- python-3.x - 排版的字符宽度和字符高度之间是否存在关系
- python - 为什么我得到“无”而不是排序列表?
- ios - 什么是进口
错误? - sql-server-2019 - SQL Server Always on 配置,无需备份还原
- c# - 按值对文本文件中的行进行排序
- python - 无法通过 Web Scraping 从 Google 搜索页面中抓取所有链接
- c++ - 更改 avformat_alloc_output_context2 加载的默认音视频编解码器
- python - 需要帮助解释一行 Opencv/Numpy 代码