최대화 리턴 - 포트폴리오 최적화

Question

또 다른 포트폴리오 최적화 질문 ...

임은 제한 합 (P) 주어진 네 가지 자산의 포트폴리오 = 1, MaxW < = 0.55 MinW>의 수익을 극대화하려고 quadprog를 사용하여 = 0.05. 공분산 행렬 내가 온

covM <- matrix(c(2.876044e-04, 6.758444e-05, 4.382673e-05, 1.167429e-04, 
       6.758444e-05, 2.331315e-04, 5.797771e-05, 1.087006e-04, 
       4.382673e-05, 5.797771e-05, 2.568974e-04, 8.544499e-05, 
       1.167429e-04, 1.087006e-04, 8.544499e-05, 2.085108e-03), ncol=4) 

동안 기간 동안

평균 수익률은

avgR <- c(0.0008990382, 0.0002285502, 0.0001120934, 0.0001540948) 

하다 여기까지

require(quadprog) 

nAssets <- length(avgR) 
Dmat <- 2 * covM 

upperB <- 0.55 
lowerB <- 0.05 
ub <- rep(upperB, nAssets) 
lb <- rep(lowerB, nAssets) 

dvec <- avgR 

Amat <- rbind(1, diag(nAssets), -diag(nAssets)) 

bvec <- c(1, lb, -ub) 

solve <- solve.QP(Dmat = Dmat, dvec = dvec, Amat = t(Amat), bvec = bvec, meq = 1) 
solve$solution 

을 반환 최적 할당으로서

.

Excel에서 동일한 데이터를 사용하면 다른 솔루션을 얻을 수 있습니다 (반환 값이 더 높음).

0.55 0.35 0.05 0.05 

그러나 상한값을 0.65로 설정하면 R과 Excel 모두 동일한 솔루션을 반환합니다.

0.65 0.25 0.05 0.05 

무엇이 누락 되었습니까?

Answer 1

내가

dvec <- avgR * 100 

를 설정하여 그것을 해결은 그래서 ...

일부 반올림 오류 것 같다