0

假设以下模型

目标1

目标2

目标3

由不熟悉 R 的人写在一个文本文件中,如下所示:

goal1 = dec1_g1 + dec2_g1 + dec3_g1
goal2 = min(dec1_g2, dec2_g2, dec3_g2)
goal3 = dec1_g3 - dec2_g3 - dec3_g3
...

我需要能够使用模型解析文本文件并评估任何一行,而不必从模型的其余行中为 dec 变量赋值。虽然该函数创建了一个可以部分查询和评估的未评估parse表达式,但我还没有找到一种方法来执行类似的操作。expeval(exp[1]), eval(exp[2])eval(exp['goal1'])

问题:有没有一种方法可以在不评估模型的情况下解析模型并创建一个列表,其中包含由模型表达式左侧命名的元素,例如

model = list(
  "goal1" = expression(goal1 = dec1_g1 + dec2_g1 + dec3_g1),
  "goal2" = expression(goal2 = min(dec1_g2, dec2_g2, dec3_g2)),
  "goal3" = expression(goal3 = dec1_g3 * dec2_g3 * dec3_g3),
  ...
)

动机:我希望能够从 R 代码中加载模型,解析它并通过表达式为dec变量分配正确的值来评估它的表达式,这取决于正在评估的目标。

4

1 回答 1

1

的“左侧”expression(x=y+z)实际上是您传递给的参数的名称expression(),其是(未评估的)调用y + z。所以它不是表达式的一部分,而是作为列表元素的名称返回(表达式是调用列表,通常未命名):

> as.list(expression(x=y+z))
$x
y + z

> names(expression(x=y+z))
[1] "x"

如果,OTOH,您使用公式构造函数~,那么您将 LHS 作为表达式的一部分:

> as.list(expression(x~y+z))
[[1]]
x ~ y + z

您可以选择调用的第二个元素:

> expression(x~y+z)[[1]]
x ~ y + z
> expression(x~y+z)[[1]][[1]]
`~`
> expression(x~y+z)[[1]][[2]]
x

注意:在最后一行,x是一个符号。

于 2013-09-09T16:55:30.787 回答