\begin{Schunk}
\begin{Sinput}
 sem.01.ord.ld <- sem(model = sem.01.ord, mimic = "Mplus",
                        estimator = "DWLS", data = hbsc, missing = "listwise")
 sem.01.ord.pair <- sem(model = sem.01.ord, mimic = "Mplus",
                        estimator = "DWLS", data = hbsc, missing = "pairwise")
\end{Sinput}
\end{Schunk}
