data(CNOlistDREAM,package="CellNOptR")
data(DreamModel,package="CellNOptR")
data(UniprotIDdream,package="CNORfeeder")
model<-preprocessing(data=CNOlistDREAM, model=DreamModel)
BTable <- makeBTables(CNOlist=CNOlistDREAM, k=2, measErr=c(0.1, 0))
modelIntegr <- mapBTables2model(BTable=BTable,model=model,allInter=TRUE)
modelIntegrWeight <- weighting(modelIntegr=modelIntegr, PKNmodel=DreamModel,
CNOlist=CNOlistDREAM, integrFac=10)
# weighting using PPI might take some minutes
## Not run:
# data(UniprotIDdream,package="CNORfeeder")
# data(PPINigraph,package="CNORfeeder")
# modelIntegrWeight2 <- weighting(modelIntegr=modelIntegr, PKNmodel=DreamModel,
# CNOlist=CNOlistDREAM, integrFac=10, UniprotID=UniprotIDdream,
# PPI=PPINigraph)
# ## End(Not run)
Run the code above in your browser using DataLab