\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(y[i] == beta[0]+beta[1]*x[1]+hat(e))))
\end{Sinput}
\end{Schunk}
