\begin{Schunk}
\begin{Sinput}
 xseq <- 1:100
 x <- rnorm(100)
 xsquare <- x*x
 chivalues <- cumsum(xsquare)
 plot(xseq, chivalues, type="l")
\end{Sinput}
\end{Schunk}
