使用 foreach 进行循环

美国卫生部门收到报告称分娩时不良结局的发生率升高。您想调查这一趋势是否与母亲年龄偏低或偏高有关。您的团队获取了上一年的 births 数据集。您有一个列表 ls_age。该列表的每个元素都是某个州每次出生对应的母亲年龄向量。

下面的循环用于计算某个州中，母亲年龄小于 20 或大于 35 的出生所占百分比：

at_risk_perc <- rep(NA, length(ls_age))

for (m in 1:length(ls_age)) {
  at_risk_perc[m] <- 
    sum(ls_age[[m]] > 35 | ls_age[[m]] < 20) * 100/length(ls_age[[m]])
}

不过这段代码运行太慢，您想尝试其他方案。foreach、parallel 和 doParallel 已为您加载。