Как предсказать курс доллара. Поиск доходной стратегии с языком R

Для дальнейших расчетов будем использовать только что составленные нами верхние и нижние интервалы прогнозов (их мы обозначили как НижПрогноз и ВерхПрогноз), составленные на срок от 1,2.,3 … и до 250 дней. С этой целью введем следующий код, с помощью которого найдем долю привлеченного кредита, необходимого для покупки (или продажи) лота при открытии длинной (или короткой) позиции сроком от 1,2.,3 … и до 250 дней:

# Доля кредита при покупке или продаже лота

# расчет с заданным кол-вом дней торгов и 0.1% уровнем риска

> МинЦена<-НижПрогноз*Лот

# создаем вектор c минимальными ценами лота с 0.1% уровнем риска

# вероятность резкого падения курса оценивается с 99.9% уровнем надежности

> МаксЦена<-ВерхПрогноз*Лот

# создаем вектор c максимальными ценами лота с 0.1% уровнем риска

# вероятность резкого роста курса оценивается с 99.9% уровнем надежности

>Цена_Лота250<-rep(Цена_Лота, 250)

# создаем вектор из 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)