\begin{Schunk}
\begin{Sinput}
 table509 <- semTable(list("listwise" = sem.01.ord.ld, "pairwise" = sem.01.ord.pair),
               columns = c("estsestars","rsquare"), type = "tex", longtable=TRUE,
               file = file.path(odir, "semtable509"), print.results=FALSE)
\end{Sinput}
\end{Schunk}
