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
checkPhen(arena,bac) #returns 1 as the index of the current phenotype in the list.
Run the code above in your browser using DataLab