r - tsibble で複数のシリーズに boxcox を適用する方法

Question

tsibble データの多くの系列に boxcox 変換を適用したいと考えています。方法がわかりません。

require(fpp3)
require(fpp)
require(fable)
require(tsibble)
require(tsibbledata)
require(feasts)
require(ggplot2)
require(lubridate)

long = aus_production %>%
  select(Quarter, Beer, Bricks) %>%  
  gather(var, value, 2:3) %>% 
  as_tsibble()

lam = long %>%
  features(value, features = guerrero) 

long %>% 
  nest(-var) %>% 
  inner_join(lam) %>% 
  mutate(data_lambda = purrr::map(.x = data, ~box_cox(.x, lambda_guerrero)))

いろいろ組み合わせてみましたがだめでした。多分もっと簡単なオプションがあります。これは 2 つのシリーズの簡単な例ですが、私は 200 シリーズを持っていると想像できるので、ハード コーディングを使用したくありません。

ベストセウェ