使用 R 列表获取 %*%

Question

将 R 代码导入带有矩阵乘法符号的 latex 时出现错误%*% 。如何编辑以下内容，以便允许我 %*%从 R 添加到 latex 输出而不会出现编译错误。

\newcommand{\estiloR}{
  \lstset{ %
    language=R,                     % the language of the code
    basicstyle=\footnotesize,       % the size of the fonts that are used for the code
    numbers=left,                   % where to put the line-numbers
    numberstyle=\tiny\color{gray},  % the style that is used for the line-numbers
    stepnumber=1,                   % the step between two line-numbers. If it's 1, each line
                                    % will be numbered
    numbersep=5pt,                  % how far the line-numbers are from the code
    backgroundcolor=\color{white},  % choose the background color. You must add \usepackage{color}
    showspaces=false,               % show spaces adding particular underscores
    showstringspaces=false,         % underline spaces within strings
    showtabs=false,                 % show tabs within strings adding particular underscores
    frame=single,                   % adds a frame around the code
    rulecolor=\color{black},        % if not set, the frame-color may be changed on line-breaks within not-black text (e.g. commens (green here))
    tabsize=2,                      % sets default tabsize to 2 spaces
    captionpos=b,                   % sets the caption-position to bottom
    breaklines=true,                % sets automatic line breaking
    breakatwhitespace=false,        % sets if automatic breaks should only happen at whitespace
    title=\lstname,                 % show the filename of files included with \lstinputlisting;
                                    % also try caption instead of title
    keywordstyle=\color{blue},      % keyword style
    commentstyle=\color{darkgreen},   % comment style
    stringstyle=\color{red},      % string literal style
    escapeinside={\%*}{*)},         % if you want to add a comment within your code
    morekeywords={*,...}         % if you want to add more keywords to the set
}}

这应该允许 R 中的以下代码进行编译而不会出现错误。

\title{ Title}
\author{Name}
\date{February 2020}

\begin{document}

\maketitle

%########################################################################3
\begin{scriptsize}
\estiloR
\begin{lstlisting}
# Function 1
f_OLS <- function(beta,X,y){
  # Evaluates the loss function
    sum((y - X%*%beta )^2) 
} 
\end{lstlisting}
\end{scriptsize}
%############################################################################

\end{document}