fdschneider / caspr

Cellular Automata for Spatial Pressure in R
MIT License
4 stars 0 forks source link

wrong cover in `init_landscape()` #7

Closed fdschneider closed 9 years ago

fdschneider commented 9 years ago

make this work:

should_be <- c(0.5,0.3,0.2)
x <- init_landscape(c("+", "0", "-"), should_be, 1000, 1000) 
round(summary(x)$cover, digits = 3) == round(should_be, digits = 3)