как применить boxcox для нескольких серий в tsibble

Я хотел бы применить преобразование boxcox для многих серий в данных tsibble. Не могу понять, как это сделать.

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)))

Я пробовал много комбинаций, но не получилось. Может есть вариант попроще. Это простой пример с двумя сериями, но я могу представить, что у меня есть 200 серий, поэтому я не хочу делать это с жестким кодированием.

Best Sewe