\begin{Schunk}
\begin{Sinput}
  shape <- 1.1; scale <- 2.2
  xrange <- c(0.0001, 5*shape*scale)
  xseq <- seq( xrange[1], xrange[2], length.out = 200)
\end{Sinput}
\end{Schunk}
