\begin{Schunk}
\begin{Sinput}
  excludedX <- x[ x < -50 | x > 50]
  sort(excludedX)
\end{Sinput}
\begin{Soutput}
 [1] -2143.76510 -1212.56570  -495.93430  -358.92679  -323.25928  -293.65362  -223.63214  -216.08593  -186.35147  -177.87912  -163.75993  -162.37585  -142.00162  -135.69665
[15]  -133.84333  -122.74492  -120.03737  -119.96264  -117.64502  -102.39544   -99.85192   -93.06852   -92.24122   -84.46856   -84.21631   -81.01521   -77.92960   -75.33751
[29]   -66.58324   -65.38211   -60.57836   -60.33039   -60.10383   -58.97226   -56.38789   -54.58040   -51.65760   -50.35593   -50.03025    50.78813    51.06803    51.78402
[43]    55.42471    56.68128    61.68350    64.04770    67.16140    69.42834    69.68492    72.67026    75.91167    78.37429    97.36832   102.47457   107.95593   117.63511
[57]   120.12563   120.46632   121.92550   127.23775   142.63761   156.35327   160.00410   173.72400   178.47843   188.60917   198.14579   226.02443   241.90805   285.97483
[71]   335.98579   359.62339   420.67198   470.93352   515.39648   566.43654  1716.44174  2038.52465
\end{Soutput}
\end{Schunk}
