%\VignetteIndexEntry{Simpson's paradox depiction}
\documentclass{article}
\begin{document}
\section*{Cleanup}

<<closeConnetions,results=hide>>=
allCon <- showConnections()
socketCon <- as.integer(rownames(allCon)[allCon[, "class"] == "sockconn"])
sapply(socketCon, function(ii) close.connection(getConnection(ii)) )
@

\end{document}