使用Portfolio.optimum的二次函数错误

Question

我正在创建一个股票投资组合，我想经营一个效率前沿。我的投资组合优化代码出现错误。我还注意到，所有股票的月收益都相同。我当时正在解决此错误。我对任何一个问题的帮助将不胜感激

tickers <- c('DPZ','SPY','AMD','AAPL','TSLA','MSFT','V', 'WMT', 'SQ','EA','ATVI','AMZN','ROKU', 
'PYPL','KO','AXP','CCL','DFS')
 Portfolio1 <- getSymbols.yahoo(tickers[1], from="2016-01-01", to= "2018-12-31", auto.assign=FALSE)


 Portfolio2 <- Portfolio1[,6]
 my_portfolio <- monthlyReturn(Portfolio2)

 for(i in 2:length(tickers)){
   ticker1 <- c('DPZ','SPY','AMD','AAPL','TSLA','MSFT','V', 'WMT', 'SQ','EA','ATVI','AMZN','ROKU', 
  'PYPL','KO','AXP','CCL','DFS')
   getSymbols.yahoo(tickers[i], from="2016-01-01", to= "2018-12-31", auto.assign=FALSE)
   Portfolio2 <- Portfolio1[,6]
   holder <- monthlyReturn(Portfolio2)
    my_portfolio <- cbind( my_portfolio, holder )
   }
  #Applies ticker name to column
  names (my_portfolio) <- tickers

# Target 7%
eff_port <- portfolio.optim(my_portfolio, pm = 0.07, shorts = TRUE)
eff_port$pw

#Efficiency Frontier
#Mean Returns
mu <- colMeans(my_portfolio)
grid <- seq(0.005, 0.033, length.out = 60)

vector_pm <- rep(NA, length(grid))
vector_psd <- rep(NA, length(grid))
eff_weights <- matrix(NA, 60, 18)
#FOR LOOP
for (i in 1 : length(grid)) {
  eff.port <- portfolio.optim(my_portfolio, pm = grid[i], shorts =TRUE)
  vector_pm[i] <- eff.port$pm
  vector_psd[i] <- eff.port$ps
  eff_weights[i, ] <- eff.port$pw
}

Answer 1

您提到，您总是得到相同的回报。我认为这是由于您的第一个循环。您计算投资组合的月回报N倍2。等于Portfolio1 [，6]。

编辑1

所以另一件事将再次出现在Portfolio2的规范中。在开始循环之前，请保存Portfolio2

for(i in 2:length(tickers)){
   ticker1 <- c('DPZ','SPY','AMD','AAPL','TSLA','MSFT','V', 'WMT', 'SQ','EA','ATVI','AMZN','ROKU', 
  'PYPL','KO','AXP','CCL','DFS')

# here is my change##############
   Portfolio1 <- getSymbols.yahoo(tickers[i], from="2016-01-01", to= "2018-12-31", auto.assign=FALSE)
#################

   Portfolio2 <- Portfolio1[,6]
   holder <- monthlyReturn(Portfolio2)
    my_portfolio <- cbind( my_portfolio, holder )
   }