# создаем вектор из 250 одинаковых цен лота по состоянию на 30.03. 2018 г.
>ДоляКредита<-ifelse(МинЦена/Цена_Лота250>=Цена_Лота250/МаксЦена, >Цена_Лота250/МаксЦена,МинЦена/Цена_Лота250)
# находим долю кредита для торговли на срок от 1,2.,3 … и до 250 дней
# ifelse -логическое выражение условия
# символ >= означает больше, либо равно
# если (МинЦена/Цена_Лота250>=Цена_Лота250/МаксЦена)
# то тогда ДоляКредита= Цена_Лота250/МаксЦена
# в противном случае ДоляКредита= Цена_Лота250/МаксЦена
# подробнее о выражении ifelse в R можно узнать по запросу ?ifelse
>ДоляКредита<-round((ДоляКредита-0.005), 2)
Вы ознакомились с фрагментом книги.
Приобретайте полный текст книги у нашего партнера: