mod6d <- lca.rh(dd.cmi.pens, mod='lc', restype='dev', interpolate=TRUE)
# send fitted plots with legends to 'res.mod6.ps' file:
residual_plots(mod6d)
# send fitted plots to active graphics window
residual_plots(mod6d, file=NULL)
Run the code above in your browser using DataLab