\begin{Schunk}
\begin{Sinput}
  dat$mn1 <- cut(dat$moreNoise, breaks = c(-10, 1, -0.3, 0.7, 1, 10),
  labels = c("never", "seldom", "some", "freq", "often"))
\end{Sinput}
\end{Schunk}
