data(diffusion)
plot(sim(diffusion))
# show "grid of environmental conditions"
image(inputs(diffusion))
# set conditions to "1", i.e. remove "refuge" in the middle
inputs(diffusion) <- matrix(1, 100, 100)
plot(sim(diffusion))
Run the code above in your browser using DataLab