Вы можете использовать ifelse
для генерации столбцов с +1 или -1, которые затем можно умножить на 100 * цены закрытия. Пример:
positiveorneg <- ifelse(buy_indicator==BUY&sell_indicator==HOLD, -1, 1)
moneytoinvest <- positiveorneg*100*closeprice
Затем вы можете использовать cumsum
, чтобы получить положительно измененную линию ваших денег.
mymoney <- cumsum(moneytoinvest)
Не трать все это в одном месте.
РЕДАКТИРОВАТЬ: если у вас более одного условия, вы можете вставить ifelse
операторов:
ifelse(buy_indicator==BUY&sell_indicator==HOLD, -1, ifelse(buy_indicator==HOLD&sell_indicator==SELL, 1, 0))