## simulate 3 biomarkers for 100 cases and 100 controls
mk <- rbind(matrix(rnorm(300),ncol=3),matrix(rnorm(300),ncol=3))
mk[1:100,1] <- mk[1:100,1]/sqrt(2)+1
mk[1:100,2] <- mk[1:100,2]*sqrt(2)+1
## linear combination to empirically maximize specificity at controlled 0.95
## sensitivity
## Require installation of 'MOSEK' to run
if (FALSE) {
lcom <- eum(mk, 100, 0.95, grdpt=0)
}
Run the code above in your browser using DataLab