جناب آقای ضیایی
سلام
برای کشیدن کادر در بسته‌ی Listings، آقای یزدانی راهنمایی فرموده‌اند. اما بنده باید عرض کنم که وارد نمودن کد نرم‌افزار R در LaTeX معمولاً توسط بسته Sweave صورت می‌گیرد که با زی‌پرشین نیز سازگار است. من یک خروجی از بسته‌ی یاد شده را در زیر قرار می‌دهم شما فلش‌های assigne بسته‌های Listings و Sweave را با هم مقایسه کنید. کدام یک زیباتر است؟ البته این عرض بنده نفی بسته‌ی Listings نیست، چرا که شخصاً استفاده‌های زیادی از بسته‌ی اخیر نموده‌ام.
پیروز باشید.
کد خروجی بالا به‌صورت زیر است.
\documentclass[a4paper,12pt]{article}
\usepackage[margin=2cm]{geometry}
\usepackage[noae]{Sweave}
\usepackage{xepersian}
\settextfont[Scale=1.1]{Yas}
\linespread{1.5}
\DefineVerbatimEnvironment{Sinput}{Verbatim} {xleftmargin=2em,
frame=single}
\DefineVerbatimEnvironment{Soutput}{Verbatim}{xleftmargin=2em,
frame=single}
\begin{document}
آقای ضیایی
سلام
\begin{Schunk}
\begin{Sinput}
> loglik <- function(alpha, # parameter for first-order term
+ x) # observed data vector
+ {
+ i <- 2:length(x)
+ - 1/2 * sum((x[i] - alpha * x[i-1])^2)
+ }
> ## and plot for the given data
> x <- c(-0.560, -0.510, 1.304, 0.722, 0.490, 1.960, 1.441)
> alpha <- seq(-1, 2, length = 100)
> plot(x=alpha,
+ y=sapply(alpha, function(alpha) loglik(alpha, x)),
+ type = "l",
+ xlab = expression(alpha),
+ ylab = expression(l(alpha)))
> ## then calculate the MLE and plot it
> i <- seq(along=x)[-1] #again an indexing vector is necessary
> alphaMl <- sum(x[i] * x[i-1]) / sum(x[i-1]^2)
> alphaMl
\end{Sinput}
\end{Schunk}
\end{document}
