\begin{Schunk}
\begin{Sinput}
 xvals<-seq(0,5,by=0.05)
 gammaxvals <- gamma(xvals)
 plot(xvals, gammaxvals, type = "l", xlab = "x", ylab = expression(Gamma(x)), main = "The Gamma Function")
\end{Sinput}
\end{Schunk}
