## Not run:
# # Loading a model
# library("sybil")
# library("Biobase")
# data("Ec_core")
#
# # Generating expressionSets
# expressionData <- matrix(data = runif(3*length(Ec_core@allGenes),min = 1,max = 100),
# nrow = length(Ec_core@allGenes),
# dimnames = list(c(Ec_core@allGenes),c()))
# expressionData <- ExpressionSet(assayData = expressionData)
#
# # Applying exp2flux
# Ec_coreGE <- exp2flux(model = Ec_core,
# expression = expressionData,
# missing = "mean")
#
# # Plotting Differences
# plotDifferences(model1 = Ec_core,
# model2 = Ec_coreGE)
# ## End(Not run)
Run the code above in your browser using DataLab