clpAPI.R
In clpAPI: R Interface to C API of COIN-or Clp

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

###################################################
### code chunk number 1: clpAPI.Rnw:74-75
###################################################
library(clpAPI)


###################################################
### code chunk number 2: clpAPI.Rnw:78-79
###################################################
prob <- initProbCLP()


###################################################
### code chunk number 3: clpAPI.Rnw:82-83
###################################################
setObjDirCLP(prob, -1)


###################################################
### code chunk number 4: clpAPI.Rnw:86-88
###################################################
nc <- 3
nr <- 3


###################################################
### code chunk number 5: clpAPI.Rnw:92-93
###################################################
ia <- c(0, 1, 2, 0, 1, 2, 0, 1, 2)


###################################################
### code chunk number 6: clpAPI.Rnw:96-97
###################################################
ja <- c(0, 3, 6, 9)


###################################################
### code chunk number 7: clpAPI.Rnw:100-101
###################################################
ar <- c(2, 4, 3, 3, 1, 4, 1, 2, 2)


###################################################
### code chunk number 8: clpAPI.Rnw:104-105
###################################################
clb <- rep(0, 3)


###################################################
### code chunk number 9: clpAPI.Rnw:108-109
###################################################
rub <- c(5, 11, 8)


###################################################
### code chunk number 10: clpAPI.Rnw:112-113
###################################################
obj <- c(5, 4, 3)


###################################################
### code chunk number 11: clpAPI.Rnw:116-117
###################################################
loadProblemCLP(prob, nc, nr, ia, ja, ar, clb, NULL, obj, NULL, rub)


###################################################
### code chunk number 12: clpAPI.Rnw:120-121
###################################################
solveInitialCLP(prob)


###################################################
### code chunk number 13: clpAPI.Rnw:124-125
###################################################
getObjValCLP(prob)


###################################################
### code chunk number 14: clpAPI.Rnw:129-130
###################################################
getColPrimCLP(prob)


###################################################
### code chunk number 15: clpAPI.Rnw:134-135
###################################################
getColDualCLP(prob)


###################################################
### code chunk number 16: clpAPI.Rnw:138-139
###################################################
delProbCLP(prob)


###################################################
### code chunk number 17: clpAPI.Rnw:154-155
###################################################
help("Clp_addColumns")


###################################################
### code chunk number 18: clpAPI.Rnw:165-167
###################################################
c2r <- system.file(package = "clpAPI", "c2r.map")
source(c2r)


###################################################
### code chunk number 19: clpAPI.Rnw:170-172
###################################################
pr1 <- initProbCLP()
delProbCLP(pr1)


###################################################
### code chunk number 20: clpAPI.Rnw:175-177
###################################################
pr2 <- Clp_newModel()
Clp_deleteModel(pr2)