\begin{Schunk}
\begin{Sinput}
 ddir <- "data"
 anxiety <- read.table(file.path(ddir, "anxiety.dat"), sep = "\t", header = FALSE,
  col.names = paste0("anxiety", 1:4))
 ## rockchalk::summarize(anxiety)
\end{Sinput}
\end{Schunk}
