r - Rで行列オブジェクトを書くための\Sexpr{}に代わるものはありますか?

Question

関数\Sexpr{}は行列オブジェクトを認識しません。たとえば、R の「exams」パッケージを使用して試験問題を設定しています。R コマンドで生成された 2 つのオブジェクトがあります。1. opt.obj.val 2. opt.solです。オブジェクトopt.obj.valはスカラー値を返し、 opt.solは行列オブジェクトを返します。質問のソリューション部分でこれら 2 つのオブジェクトを使用したいと考えています。opt.obj.valオブジェクト\Sexpr{}などのスカラー値で問題ありません。ただし、行列オブジェクトであるopt.solは認識しません。マトリックスオブジェクトを取得するために使用することは可能ですか、または代替コマンドはありますか?\Sexpr{}

<<echo=FALSE, results=hide>>=
library(lpSolve)
P1 <- c(11, 12,  10, 9)
P2 <- c(6,  7,  500,   3)
P3 <- c(8,  8.5, 7.5, 9.5)
costs <- rbind(P1, P2, P3)
row.signs <- rep("=", 3) 
row.rhs <- c(30, 30, 30) # rhs values of rows  
col.signs <- rep("=", 4)
col.rhs <- c(15, 25, 40, 10) # rhs values of columns
opt.obj.val <- lp.transport(costs, "min", row.signs, row.rhs, col.signs, col.rhs)$objval
opt.sol <- lp.transport(costs, "min", row.signs, row.rhs, col.signs, col.rhs)$solution
@

\begin{question}
a) What is the optimal objective function value?
\begin{answerlist}
  \item \Sexpr{opt.obj.val} 
  \item 780 
  \item 350 
  \item 560
  \item 710
\end{answerlist}
\end{question}

\begin{solution}
\begin{answerlist}
  \item True.
  \item False.
  \item False.
  \item False.
  \item False.
\end{answerlist}

The optimal objective function value is \Sexpr{opt.obj.val}.

The optimal solution is \Sexpr{opt.sol}.

\end{solution}

\exname{Transportation}
\extype{schoice}
\exsolution{10000}
\exshuffle{TRUE}