سلام
علاوه بر ارایه طریق آقای صفیاقدم، میتوان از بسته Sweave در دیباچه (preamble) استفاده نمود. به کد زیر توجه کنید.
\documentclass{article}
\usepackage{Sweave}
\begin{document}
\begin{Schunk}
\begin{Sinput}
> fib <- function(n) {
+ if (n < 2)
+ n
+ else
+ fib(n - 1) + fib(n - 2)
+ }
> fib(10) # => 55
\end{Sinput}
\begin{Soutput}
[1] 55
\end{Soutput}
\end{Schunk}
\end{document}
و با اجرای کد نتیجه زیر بدست میآید.