lpmethod。R
# #使用不同的Method参数值求狗万app足彩解模型;#显示哪个值给出最短的求解时间。库(矩阵)库(gurobi) args <- commandArgs(trailingOnly = TRUE) if (length(args) < 1) {stop('使用:Rscript lpmethod。R filename\n')} #读取模型cat('Reading model'，args[1]，'…')模型<- gurobi_read(args[1]) cat('…完成\ n”)#解决方法参数的模型,不同的值()< -列表bestTime < - Inf bestMethod < - 1(我在0:4){参数＄方法<- I res <- gurobi(模型，参数)if (res＄status == 'OPTIMAL'){最佳方法<- i最佳时间<- res＄运行时参数＄TimeLimit <- bestTime}} #报告哪个方法最快如果(bestMethod == -1) {cat('Unable to solve this model\n')} else {cat('Solved in'， bestTime， 'seconds with method:'， bestMethod， '\n')} rm(params, model)
