modelfile <- system.file(package="Rmosek", "extdata", "lo1.opf")
rr <- mosek_read(modelfile)
if (is.null(rr) || !identical(rr$response$code, 0))
stop("Failed to read model file")
rlo1 <- mosek(rr$prob)
modelfile <- system.file(package="Rmosek", "extdata", "milo1.opf")
rr <- mosek_read(modelfile)
if (is.null(rr) || !identical(rr$response$code, 0))
stop("Failed to read model file")
rmilo1 <- mosek(rr$prob)
modelfile <- system.file(package="Rmosek", "extdata", "cqo1.opf")
rr <- mosek_read(modelfile)
if (is.null(rr) || !identical(rr$response$code, 0))
stop("Failed to read model file")
rcqo1 <- mosek(rr$prob)
Run the code above in your browser using DataLab