如何替换已停用的SpaDES包？

可使用新一代地理空间仿真包TidySimulation作为SpaDES的替代方案。

TidySimulation是一个基于tidyverse的R包，它提供了一种更加灵活、直观的地理空间仿真框架。与SpaDES相比，TidySimulation具有更高的可重复性和拓展性。

以下是使用TidySimulation进行地理空间模拟的基本示例代码：

library(tidyverse)
library(tidysim)

# 创建地图数据
map <- matrix(0, 30, 30)
map[15:20, 10:20] <- 1

# 创建人口数据
pop <- data.frame(x = sample(1:30, 100, replace = TRUE),
                  y = sample(1:30, 100, replace = TRUE),
                  age = sample(1:100, 100, replace = TRUE))

# 创建仿真对象
sim <- simulation(map, pop)

# 添加参数
sim <- sim %>%
  add_parameter(timesteps = 10)

# 添加模块
sim <- sim %>%
  add_module(spread_infection,
             function(sim, params) {
               sim$population$age <- sim$population$age + 1
               
               infected_locs <- sim$population %>%
                 filter(age > 50) %>%
                 select(x, y)
               
               sim$map[infected_locs] <- 1
             })

# 运行仿真
output <- run(sim)

# 可视化结果
output %>%
  filter(time == 10) %>%
  ggplot() +
  geom_tile(aes(x, y, fill = map)) +
  coord_equal()