library(CellNOptR)
# quick 1 time point optimisation of a Prior Knowledge Network to MIDAS data.
data(CNOlistToy,package="CellNOptR")
data(ToyModel,package="CellNOptR")
pknmodel = ToyModel
cnolist = CNOlist(CNOlistToy)
model = preprocessing(cnolist, pknmodel)
results = gaBinaryT1(cnolist, model, verbose=FALSE)
plotFit(results)
cutAndPlot(cnolist, model, list(results$bString))
# Same as above and HTML report
CNORwrap(name="Toy",
namesData=list(CNOlist="ToyData",model="ToyModel"),
data=CNOlistToy, model=pknmodel)
Run the code above in your browser using DataLab