\begin{Schunk}
\begin{Sinput}
 rockchalk::summarize(myx) ## or summary(myx)
 hist(myx)
 dev.new(height=3, width=8) ## fiddle values
 hist(myx)
 hist(myx, breaks = seq(min(myx), max(myx), length = 5))
 hist(myx, breaks = c(min(myx), 0, 40, 50, max(myx)))
 hist(myx, xlim = c(-200, 200))
 hist(myx, xlim = c(-200, 200), ylim = c(0, 350))
 text(-200, 300, pos = 4, labels = c("If you typed all this \nin I think you are the \nmost dedicated and well \nadjusted person who ever \ntook my course"))
\end{Sinput}
\end{Schunk}
