You can also use preprocessing function instead that calls compressModel and other preprocessing functions.
compressModel(model, indexes)
#load data
data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
indicesToy<-indexFinder(CNOlistToy,ToyModel,verbose=FALSE)
toyComp<-compressModel(ToyModel,indicesToy)
Run the code above in your browser using DataLab