data(Ec_core, envir = environment()) #get Escherichia coli core metabolic model
bac <- Bac(Ec_core,deathrate=0.05,
growthlimit=0.05,growtype="exponential") #initialize a bacterium
arena <- Arena(n=20,m=20) #initialize the environment
addOrg(arena,bac,amount=10) #add 10 organisms
addSubs(arena,40) #add all possible substances
eval <- simEnv(arena,10)
evalArena(eval)
## Not run:
# ## if animation package is installed a movie of the simulation can be stored:
# library(animation)
# saveVideo({evalArena(eval)},video.name="Ecoli_sim.mp4")
# ## End(Not run)
Run the code above in your browser using DataLab