# NOT RUN {
LCfit <- fit(lc(), data = EWMaleData, ages.fit = 55:89)
wxt <- genWeightMat(55:89, EWMaleData$years, clip = 3)
RHfit <- fit(rh(), data = EWMaleData, ages.fit = 55:89, wxt = wxt,
start.ax = LCfit$ax, start.bx = LCfit$bx, start.kt = LCfit$kt)
plot(RHfit)
#Impose approximate constraint as in Hunt and Villegas (2015)
# }
# NOT RUN {
RHapprox <- rh(approxConst = TRUE)
RHapproxfit <- fit(RHapprox, data = EWMaleData, ages.fit = 55:89,
wxt = wxt)
plot(RHapproxfit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab