\begin{Schunk}
\begin{Sinput}
 y <- c(21, 41, 44, 115, 105)
 mean(y)
\end{Sinput}
\begin{Soutput}
[1] 65.2
\end{Soutput}
\begin{Sinput}
 var(y)
\end{Sinput}
\begin{Soutput}
[1] 1763.2
\end{Soutput}
\end{Schunk}
