Commit 05588fa6 authored by Martin Maechler's avatar Martin Maechler

Use 'drop=FALSE' (for `covarFB`, for 10-assets ex)

parent 22910007
Pipeline #4646 failed with stages
......@@ -24,10 +24,10 @@ initAlgo <- function(mu, lB, uB ) {
## getMatrices -----------------------------------------------------------------
getMatrices <- function(mu, covar, w, f) {
## Slice covarF,covarFB,covarB,muF,muB,wF,wB
covarF <- covar[f,f]
covarF <- covar[f,f , drop=FALSE]
muF <- mu[f]
b <- seq_along(mu)[-f]
covarFB <- covar[f,b]
covarFB <- covar[f,b , drop=FALSE]
wB <- w[b]
list(covarF = covarF, covarFB = covarFB, muF = muF, wB = wB)
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment