R Статистика: индикатор скользящего стопа среднего истинного диапазона

Я использую следующую статью:

marintrading.com/106VERV.PDF

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

Не могли бы вы мне помочь?