我使用flexsurv通过将威布尔曲线拟合到数据来计算给定总体的预期寿命。
library(survival)
library(flexsurv)
data <- read.csv(file)
survival_col = data[["survival"]]
duration_col = data[["duration"]]
w <- flexsurvreg(Surv(duration_col,survival_col) ~ 1,data=data, dist="weibull")
鉴于w，如何计算曲线下的面积，以便获得预期的生命周期？