\begin{Schunk}
\begin{Sinput}
 dat$xcut <-cut(dat$x, 
      breaks = c(-5, 60, 100, 1000000), 
      labels = c("Minimal", "Medium", "Huge"))
 table(dat$xcut, exclude = NULL)
\end{Sinput}
\begin{Soutput}
Minimal  Medium    Huge 
      6       7      35 
\end{Soutput}
\end{Schunk}
