# original model object with 'logrates' residuals
mod6 <- lca.rh(dd.cmi.pens, mod="lc", error="gauss", max=110, interpolate=TRUE)
# adjusted model object with 'deviance' residuals:
dev6 <- lca.dev.res(mod6, insp.dd(dd.cmi.pens, "pop"))
Run the code above in your browser using DataLab