R - Невозможно преобразовать объект fPORTFOLIO матричного или фрейм данных

Question

Моего кода выглядит следующим образом:

require("fPortfolio") 
lppData <- 100 * LPP2005.RET[, 1:6] 
ewSpec <- portfolioSpec() 
nAssets <- ncol(lppData) 
setWeights(ewSpec) <- rep(1/nAssets, times = nAssets) 
ewPortfolio <- feasiblePortfolio(lppData,ewSpec) 

Я хочу, чтобы иметь возможность конвертировать ewPortfolio в матрицу или фрейм данных.

Я попытался с помощью решения, описанного здесь `as.matrix` and `as.data.frame` S3 methods vs. S4 methods

Answer 1

Я понимаю, что вы хотите записать информацию портфель, созданный с fPortfolio первенствует. Я нашел этот код где-то, и он позволяет мне написать информацию о портфеле, чтобы преуспеть (вам нужно установить пакет xlsx и java):

## Write output to excel 

dir.create("AllPortfolios", showWarnings = FALSE)    
mywb <- createWorkbook() 
mysheet <- createSheet(mywb, sheetName="Portfolio") 
strcol <- 1 
mytitle <- data.frame(efficient_Portfolio@title) 
addDataFrame(mytitle , mysheet, startRow=1, startColumn=strcol) 
myweights <- data.frame(efficient_Portfolio@portfolio@portfolio$weights) 
addDataFrame(myweights , mysheet, startRow=3, startColumn=strcol) 
strcol <- strcol + 2 
mytgret <- data.frame(efficient_Portfolio@portfolio@portfolio$targetReturn) 
addDataFrame(mytargetreturn , mysheet, startRow=3, startColumn=strcol) 
strcol <- strcol + 2 
mytgrisk <- data.frame(efficient_Portfolio@portfolio@portfolio$targetRisk) 
addDataFrame(mytargetrisk , mysheet, startRow=3, startColumn=strcol) 
strcol <- strcol + 2 
saveWorkbook(mywb, "./AllPortfolios/AllPortfolios.xlsx")