data(CNOlistToy2,package="CellNOptR")
data(ToyModel2,package="CellNOptR")
model <- preprocessing(CNOlistToy2, ToyModel2)
bStringT1 = c(0,0,1,1,1,1,1,1,0,0,1,1,1,1,1,1)
simT1<-simulateTN(CNOlist=CNOlistToy2, model=model, bStrings=list(bStringT1))
score1 = computeScoreTN(CNOlistToy2, model, bStrings=list(bStringT1,c(1,0,1,0)))
Run the code above in your browser using DataLab