\begin{Schunk}
\begin{Sinput}
 x <- 10
 plot( 1:10, 1:10, type="n")
 anexpression <-   bquote(x == .(x))
 text( 4, 5, anexpression)
 mnorm <- round(mean(rnorm(1000, m=10, sd=20)), 2 )
 text( 7,5, bquote(mu == .(mnorm)))
 text(4, 2, bquote(lambda == .(round(mean(rpois(100,lambda=7))))))
\end{Sinput}
\end{Schunk}
