Экономия времени с помощью lpSolveAPI в R

Question

Я использую lpSolveAPI в R, пытаясь минимизировать разницу между проданной суммой и произведенной суммой. Производство производится по минутам, и модель работает просто отлично, когда ее нужно решить за несколько минут. Проблема в том, что когда приходится рассчитывать на несколько часов, это занимает слишком много времени. Есть ли способ уменьшить время, необходимое R для минимизации проблемы? Я настроил свой код как:

library(lpSolveAPI)
#sold amount 
S1=1000
S2=1000
S3=1000
#making a vector 
n=c(S1,S2,S3)
#vector for upper an lower bounds 
q=rep(-1000,3)
w=rep(1000,3)
e=rep(0,3)
#zero Vector  
x=rep(0,1272)
#includes 1 and -1
for (i in 187:189){
x[i]=1  }
for (i in 190:192){
x[i]=-1}
fejl=make.lp(0,1272)
lp.control(fejl, sense="min")
set.objfn(fejl, x)
set.type(fejl, 193:1272, "binary")
set.bounds(fejl, lower = q, upper = w, columns = 184:186)  
set.bounds(fejl, lower = q, upper = e, columns = 190:192) 

после многих ограничений я решаю это:

solve(fejl)
get.objective(fejl)
get.variables(fejl)