# 导入数据
data <- read.csv("your_data_file.csv")

# 计算年龄标准化死亡率
age_standardized_mortality_rate <- function(data) {
  # 计算每个年龄段的死亡率
  mortality_rates <- data$deaths / data$population
  
  # 计算每个年龄段的年龄权重
  age_weights <- data$population / sum(data$population)
  
  # 计算年龄标准化死亡率
  age_standardized_mortality_rate <- sum(mortality_rates * age_weights)
  
  return(age_standardized_mortality_rate)
}

# 调用函数计算年龄标准化死亡率
result <- age_standardized_mortality_rate(data)
print(result)