Реализация Кростона в R на наборе данных

Question

Я пытаюсь реализовать метод Кростона на наборе данных, период и продажи которого осуществляются Заказчиком. Я новичок в языке R.

Я нашел кусок кода

y <- rpois(20,lambda=.3)
fcast <- croston(y)
plot(fcast)

Есть ли способ реализовать Croston в моем наборе данных

Вот пример набора данныхдля одного клиента на период от 1 до 20

  Period   Sales
    1   0
    2   0
    3   0
    4   0
    5   0
    6   32.03
    7   0
    8   0
    9   0
    10  0
    11  0
    12  0
    13  0
    14  26
    15  1.29
    16  6.99
    17  0
    18  0
    19  0
    20  0

Мне нужен прогноз на период 21