rLindo_Quick_Start.R
In rLindo: R Interface to LINDO API

### R code from vignette source 'rLindo_Quick_Start.Rnw'

###################################################
### code chunk number 1: rLindo_Quick_Start.Rnw:25-26
###################################################
library(rLindo)


###################################################
### code chunk number 2: rLindo_Quick_Start.Rnw:30-31
###################################################
rEnv <- rLScreateEnv()


###################################################
### code chunk number 3: rLindo_Quick_Start.Rnw:35-36
###################################################
rModel <- rLScreateModel(rEnv)


###################################################
### code chunk number 4: rLindo_Quick_Start.Rnw:121-122
###################################################
library(rLindo)


###################################################
### code chunk number 5: rLindo_Quick_Start.Rnw:125-126
###################################################
rEnv <- rLScreateEnv()


###################################################
### code chunk number 6: rLindo_Quick_Start.Rnw:129-130
###################################################
rModel <- rLScreateModel(rEnv)


###################################################
### code chunk number 7: rLindo_Quick_Start.Rnw:133-134
###################################################
rLSsetPrintLogNull(rModel)


###################################################
### code chunk number 8: rLindo_Quick_Start.Rnw:137-138
###################################################
nVars <- 12


###################################################
### code chunk number 9: rLindo_Quick_Start.Rnw:141-142
###################################################
nCons <- 5


###################################################
### code chunk number 10: rLindo_Quick_Start.Rnw:145-146
###################################################
nDir <- LS_MIN


###################################################
### code chunk number 11: rLindo_Quick_Start.Rnw:149-150
###################################################
dObjConst <- 0.


###################################################
### code chunk number 12: rLindo_Quick_Start.Rnw:153-154
###################################################
adC <- c(1., 1., 1., 1., 1., 1., 1., 1., 1., 1., 0., 0.)


###################################################
### code chunk number 13: rLindo_Quick_Start.Rnw:157-158
###################################################
adB <- c( 2., 3., 4., 5., 8.)


###################################################
### code chunk number 14: rLindo_Quick_Start.Rnw:161-162
###################################################
acConTypes <- "EEEEE"


###################################################
### code chunk number 15: rLindo_Quick_Start.Rnw:165-166
###################################################
nNZ <- 20


###################################################
### code chunk number 16: rLindo_Quick_Start.Rnw:169-170
###################################################
anBegCol <- c( 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 20)


###################################################
### code chunk number 17: rLindo_Quick_Start.Rnw:173-175
###################################################
adA <- c(1.0,-1.0,1.0,-1.0,1.0,-1.0,1.0,-1.0,1.0,-1.0,
         1.0,1.0,1.0,1.0,1.0,1.0,2.0,4.0,6.0,7.0)


###################################################
### code chunk number 18: rLindo_Quick_Start.Rnw:178-179
###################################################
anRowX <- c(0,0,1,1,2,2,3,3,4,4,0,1,2,3,4,0,1,2,3,4)


###################################################
### code chunk number 19: rLindo_Quick_Start.Rnw:182-183
###################################################
pdLower <- c(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, -LS_INFINITY, -LS_INFINITY)


###################################################
### code chunk number 20: rLindo_Quick_Start.Rnw:186-188
###################################################
rLSloadLPData(rModel, nCons, nVars, nDir, dObjConst, adC, adB, acConTypes, 
              nNZ, anBegCol, NULL, adA, anRowX, pdLower, NULL)


###################################################
### code chunk number 21: rLindo_Quick_Start.Rnw:191-192
###################################################
rLSoptimize(rModel,LS_METHOD_FREE)


###################################################
### code chunk number 22: rLindo_Quick_Start.Rnw:195-196
###################################################
rLSgetDInfo(rModel,LS_DINFO_POBJ)


###################################################
### code chunk number 23: rLindo_Quick_Start.Rnw:199-200
###################################################
rLSgetPrimalSolution(rModel)


###################################################
### code chunk number 24: rLindo_Quick_Start.Rnw:203-204
###################################################
rLSgetDualSolution(rModel)


###################################################
### code chunk number 25: rLindo_Quick_Start.Rnw:207-209
###################################################
rLSdeleteModel(rModel)
rLSdeleteEnv(rEnv)