Skip to content

Instantly share code, notes, and snippets.

@jotech

jotech/no-space.R

Last active April 10, 2019 12:11
Show Gist options
  • Save jotech/7434b56e462f6e9e90e5d99dc0994b61 to your computer and use it in GitHub Desktop.
Save jotech/7434b56e462f6e9e90e5d99dc0994b61 to your computer and use it in GitHub Desktop.
Download ZIP
bacarena_no-space
Raw
no-space.R
library(BacArena)
data("Ec_core")
arena <- Arena(n=10,m=10)
# by setting maxweight to infinity, duplication is disabled
# speed=0 indicates no movement
# limit_growth=FALSE removes the limit of biomass increase
bac <- Bac(Ec_core, speed=0, limit_growth=FALSE, maxweight=Inf)
arena <- addOrg(arena, bac, biomass=1)
arena <- addDefaultMed(arena, bac)
sim <- simEnv(arena, time = 5, diffusion = FALSE) # disabling diffusion
# no diffusion takes place
plotSubDist(sim, sub = "EX_co2(e)", time=c(1,3,5))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment