\begin{Schunk}
\begin{Sinput}
> plot(1:10, 1:10, type="n")
> text(4, 5, expression(paste(alpha  ," is alpha")))
> text(7, 3, expression(paste(beta * alpha, " is beta * alpha")))
> text(3, 6, expression(paste(frac(beta, alpha), " is frac(beta,alpha)")))
> text(2,9, expression(paste(hat(y)[i] == hat(beta)[0]+hat(beta)[1]*x[1])))
\end{Sinput}
\end{Schunk}
