我有一个这样的数据表：
dat <- data.frame(
age = c(0,10,20,40,70,100),
surv = c(1.0,0.9,0.8,0.6,0.3,0.0)
)
我想为每个缺失的年龄（30,50,60,80,90）添加一行，然后我想将 surv 的线性插值添加到新行。所以新行将是 (30,0.7) (80, 0.2) 等。
这只是一个例子。我实际上正在处理一个更大的数据集，从 0 到 5,000,000 乘以 10（有很多缺失的行），所以我需要一些自动化。
谢谢您的帮助！