data(swedish_females)
head(swedish_females)
initial_age <- 0 # (Could be adjusted up)
time <- initial_age:max(swedish_females$age)
survival_fraction <- swe$lx / swe$lx[swe$age == initial_age]
sample_size <- swe$Lx[swe$age == initial_age] #sample size
results <- vitality.2ps(time = time,
sdata = survival_fraction,
init.params=c(0.012, 0.01, 0.1, 0.1),
se = sample_size,
Mplot=F)Run the code above in your browser using DataLab