set.seed(888)
sig.u <-
do.call(
cbind,
lapply(1:6, function(x) {
col <- runif(n = 96)
col / sum(col)
})
)
rr <- find_best_reconstruction_QP(
target.sig = sig.u[, 1, drop = FALSE],
sig.universe = sig.u[, 2:6]
)
names(rr)
rr$optimized.exposure
rr$similarity
rr <- find_best_reconstruction_QP(
target.sig = sig.u[, 1, drop = FALSE],
sig.universe = sig.u[, 2:6],
max.subset.size = 3
)
rr$optimized.exposure
rr$similarity
Run the code above in your browser using DataLab