\begin{Schunk}
\begin{Sinput}
 outfn2 <- file.path(tdir, "pctable1.csv")
 write.csv(p1xt, file=outfn2, row.names=FALSE)
\end{Sinput}
\end{Schunk}
