# NOT RUN {
modelfile <- system.file(package="Rmosek", "extdata", "lo1.opf")
rr <- mosek_read(modelfile)
if (!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 (!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 (!identical(rr$response$code, 0))
stop("Failed to read model file")
rcqo1 <- mosek(rr$prob)
modelfile <- system.file(package="Rmosek", "extdata", "qo1.opf")
rr <- mosek_read(modelfile)
if (!identical(rr$response$code, 0))
stop("Failed to read model file")
rqo1 <- mosek(rr$prob)
modelfile <- system.file(package="Rmosek", "extdata", "sco1.opf")
modelscofile <- system.file(package="Rmosek", "extdata", "sco1.sco")
rr <- mosek_read(modelfile, list(scofile=modelscofile))
if (!identical(rr$response$code, 0))
stop("Failed to read model file")
rsco1 <- mosek(rr$prob)
# }
Run the code above in your browser using DataLab