\begin{Schunk}
\begin{Sinput}
  dat$mn1 <- cut(dat$moreNoise, breaks = c(-10, -1, -0.3, 0.7, 1, 10))
  table(dat$mn1)
\end{Sinput}
\begin{Soutput}
  (-10,-1]  (-1,-0.3] (-0.3,0.7]    (0.7,1]     (1,10] 
         3          3          6          2          5 
\end{Soutput}
\begin{Sinput}
  levels(dat$mn1)
\end{Sinput}
\begin{Soutput}
[1] "(-10,-1]"   "(-1,-0.3]"  "(-0.3,0.7]" "(0.7,1]"    "(1,10]"    
\end{Soutput}
\end{Schunk}
