usigs <- matrix(c(0.2, 0.7, 0.1,
0.3, 0.6, 0.1,
0.1, 0.1, 0.8), nrow = 3)
colnames(usigs) <- c("u1", "u2", "u3")
tsig <- matrix(c(0.25, 0.65, 0.1), nrow = 3)
optimize_exposure_QP(tsig, usigs)
Run the code above in your browser using DataLab