sweave - 在 \Sexpr{} 中使用“if else”（可能还有其他）条件

Question

是否可以在 Sweave 的 \Sexper{} 中使用条件？我正在尝试做的一个例子是

\Sexpr{if(coef(model1)[3]<0){-1*round(coef(model1)[3],3)}else{round(coef(model1)[3],3)}}

更详细地说，我想要类似的东西

\Sexpr{if(x<0){paste(-1*x, "lower", sep="")}else{paste(x, "higher", sep=""}}

当我尝试第一段代码时，出现以下错误：

Error in parse(text = cmd) : <text>:2:0: unexpected end of input
1:if(coef(model1)[3]<0){-1*round(coef(model1)[3],3)

有任何想法吗？

谢谢你的帮助，

-标记

Answer 1

Sexpr表达式中不允许使用大括号。而是在隐藏的代码块中进行计算，并在Sexpr.

参见 Sweave 手册： http: //www.stat.uni-muenchen.de/~leisch/Sweave/Sweave-manual.pdf