使用for循环在R中构建生命表

# 定义一个空的数据框来存储生命表数据
life_table <- data.frame()

# 定义年龄段和初始人口数
age_groups <- c(0, 1, 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85)
population <- c(10000)

# 使用for循环计算每个年龄段的人口数量和死亡率
for (i in 2:length(age_groups)) {
  age_group <- age_groups[i]
  
  # 假设每个年龄段的死亡率是10%
  mortality_rate <- 0.1
  
  # 计算当前年龄段的人口数量和死亡人数
  population <- population * (1 - mortality_rate)
  deaths <- population * mortality_rate
  
  # 将当前年龄段的人口数量和死亡人数添加到数据框中
  life_table <- rbind(life_table, c(age_group, population, deaths))
}

# 将数据框的列名命名为相应的字段名
colnames(life_table) <- c("Age Group", "Population", "Deaths")

# 打印生命表数据
print(life_table)