inst/unitTests/test_weighting.R

In CNORfeeder: Integration of CellNOptR to add missing links

test_weighting <- function() {
  # load the data already formatted as CNOlist
  data(CNOlistDREAM,package="CellNOptR")
  # load the model (PKN) already in the CNO format
  data(DreamModel,package="CellNOptR")
  # see CellNOptR documentation to import other data/PKNs)
  
  if ((class(CNOlistDREAM)=="CNOlist")==FALSE){
    CNOlistDREAM = CellNOptR::CNOlist(CNOlistDREAM)
  }	
  
  
  BTable <- makeBTables(CNOlist=CNOlistDREAM, k=2, measErr=c(0.1, 0))
  
  model<-preprocessing(data=CNOlistDREAM, model=DreamModel)
  
  modelIntegr <- mapBTables2model(BTable=BTable,model=model,allInter=TRUE)
	
  modelIntegrWeight <- weighting(modelIntegr=modelIntegr, PKNmodel=DreamModel,
								   CNOlist=CNOlistDREAM, integrFac=10)
  
  checkTrue(is.vector(modelIntegrWeight$linksWeights))
  checkEquals(length(modelIntegrWeight$linksWeights), length(modelIntegrWeight$reacID))

}