\begin{Schunk}
\begin{Sinput}
  xseq <- seq(from = xrange[1], to = xrange[2], length.out = 100)
\end{Sinput}
\end{Schunk}
