Максимизировать активную доходность минимизировать активную аналитику портфеля рисков R - PullRequest
Новая
       79

Максимизировать активную доходность минимизировать активную аналитику портфеля рисков R

0 голосов
/ 05 ноября 2019

Я пытаюсь максимизировать активную доходность и минимизировать активный риск, используя оптимизацию аналитики портфеля. это возможно с помощью этого пакета? я пытаюсь минимизировать активный вес .. поэтому Мин (Portw-Benchw) * Ков. Есть ли способ добавить вес скамьи как часть целевой функции?

Вот мой код в настоящее время .. любая помощь будет принята с благодарностью! спасибо. 

#this dataframe is the current benchmark weightings. i would like to 
#specify my objective function so that i am minimizing the active risk, not 
#total risk. is there a way to feed the benchmark weights into the 
#add.objective function?

BenchWeight <- arrange(BenchWeight,Product)%>%
  spread(Product,Weight)    

#CovMatrix is a dataframe turned into xts object with 120 daily returns on 
#various bond market sectors.

CovMatrix <- select(ExcessReturns, Date,Product,Excess_Returns_Daily)%>%
spread(Product,Excess_Returns_Daily)%>%
select(-Universal)%>%
arrange(desc(Date))%>%
slice(1:120)


optimdata <- xts(CovMatrix[,-1], order.by = CovMatrix[,1])

optimweight <- portfolio.spec(colnames(optimdata))
optimweight <- add.constraint(optimweight, type= "weight_sum", min_sum=0, 
max_sum=1)
optimweight <- add.constraint(optimweight, type = "long_only")
optimweight <- add.objective(optimweight, type="return", name = "mean")
optimweight <- add.objective(optimweight, type = "risk",name = "StdDev", 
target = 0.5)


optimweight1 <- optimize.portfolio(optimdata,optimweight, optimize_method 
= "ROI")
...